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Chapter  1 
Introduction 


Chapter  1  contains  a  statement  of  the  waveguide  mode  converter  problem  and 
a  description  of  the  general  method  of  solution.  Chapter  1  is  self-contained; 
it  caji  be  read  without  supplementary  references.  A  computer  program  was 
written  to  obtain  a  numerical  solution  of  the  waveguide  mode  converter  prob¬ 
lem.  Chapter  2  contains  all  the  information  necessary  to  run  this  program 
and  to  interpret  the  final  numerical  results  that  it  writes  out.  Chapter  2  is 
more  or  less  self-contained.  References  [1]  and  [2]  are  cited  in  Chapter  2. 
Although  these  references  are  enlightening,  one  c«in  grasp  the  contents  of 
Chapter  2  without  delving  into  them. 

The  computer  program  consists  of  a  main  program,  the  subroutines 
MODES,  BESIN,  BES,  INTERPOL,  PHI,  and  DON,  the  function  subpro¬ 
gram  FXY,  and  the  subroutines  DECOMP  and  SOLVE  in  that  order.  These 
parts  of  the  program  are  described  and  listed  in  Chapters  3  to  11.  Unfortu¬ 
nately,  Chapters  3  to  11  are  not  self-contained  because  they  depend  heavily 
on  equations  extracted  from  [2].  One  must  read  both  [1]  and  [2]  in  order 
to  verify  these  equations.  Considerable  time  and  effort  are  required  to  read 
both  [1]  and  [2].  Fortunately,  one  who  wants  to  use  the  computer  program 
does  not  have  to  read  Chapters  3  to  11  unless  unforeseen  difficulty  arises 
while  running  the  program.  If  one  experiences  such  difficulty  or  if  one  de¬ 
sires  to  modify  the  program  to  suit  one’s  needs,  then  one  will  have  to  go  into 
Chapters  3  to  11.  Most  often,  one  will  not  have  to  read  all  of  Chapters  3  to 
11,  and  one  will  be  able  to  use  equations  extracted  from  [2]  without  going 
through  their  derivations  in  [1]  and  [2]. 
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1.1  statement  of  the  Problem 


There  is,  ais  shown  in  Fig.  1,  a  circular  waveguide  which  is  closed  at  one  end. 
Two  symmetrically  placed  apertures  in  the  lateral  wall  of  this  waveguide  are 
backed  by  rectangular  waveguides  of  identical  dimensions.  The  interiors  of 
the  left-hand  r**ctangular  waveguide,  the  right-hand  rectangular  waveguide 
and  the  circular  waveguide  are  called  regions  1,  2,  aJid  3,  respectively.  Ho¬ 
mogeneous  space  of  permeability  and  permittivity  e  exists  in  all  of  these 
regions.  The  excitation  is  a  TMoi  wave  of  unit  amplitude  traveling  in  the 
z-direction  in  the  circular  waveguide.  The  circular  waveguide  is  of  radius  a 
and  is  terminated  by  a  perfectly  conducting  wall  at  z  =  L3.  The  radius  a 
is  such  that  only  the  TEn  and  TMqi  modes  can  propagate  in  the  circular 
waveguide. 

Both  rectangular  waveguides  run  parallel  to  the  r-ajcis.  Both  have  the 
the  same  cross  section  (— |  <  y  <  |,  — f  <  2  <  f)  c  <  b  and  b  is 

such  that  only  the  TEio  dominant  mode  can  propagate  in  each  rectangular 
waveguide.  The  aperture  Ai  which  feeds  the  left-hand  rectangular  waveguide 
in  Fig.  1  is  the  surface  for  which  (p  =  a,  tt  —  <  (^  <  tt  ■+•  (^o>  —  f  ^  ^  f) 

where  p  and  4>  are  the  cylindrical  coordinates  related  to  x  and  y  by 

p  =  (1-1) 

tan  <f>  =  —  (1.2) 

X 

and 

(s)  • 

The  aperture  A2  which  feeds  the  right-hand  rectangular  waveguide  is  the 
surface  for  which  [p  =  <j,  —4>o  ^  <f>oi  — f  ^  ^  ^  §)• 

The  voltage  to  current  ratio  of  the  TEio  mode  at  x  =  —  Li  in  region  1  is 
taken  to  be  Zj.  All  other  rectangular  waveguide  modes  are  evanescent.  The 
voltage  to  current  ratios  of  the  evanescent  modes  at  x  =  —  Li  do  not  come  into 
play  because  Li  is  taken  to  be  so  large  that  any  evanescent  wave  emanating 
from  the  termination  at  x  =  -Li  will  have  negligibly  small  amplitude  upon 
arrival  at  aperture  At-  The  voltage  to  current  ratio  of  the  TEio  mode  at 
X  =  ^2  in  region  2  is  taken  to  be  Z2.  Here,  L2  is  taken  to  be  so  large  that 
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Fig.  1.  Top  and  side  views  of  the  TMoi  to  TEio  mode  converter. 
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any  evanescent  wave  emanating  from  the  termination  at  x  =  Lj  will  have 
negligibly  small  amplitude  upon  arrival  at  aperture  A2. 

As  previously  stated,  the  excitation  is  a  x-traveling  (traveling  in  the  z- 
direction)  TMoi  wave  of  unit  amplitude  in  the  circular  waveguide.  By  as¬ 
sumption,  this  is  the  only  ^-traveling  wave  at  z  =  —c/2.  Concerning  the 
fields  in  the  par""  of  region  3  for  which  z  >  —c/2  cind  in  aJl  of  regions  1  and  2, 
it  does  not  matter  how  this  z-traveling  TMqi  wave  is  produced.  We  let  this 
wave  be  produced  by  a  sheet  of  electric  current  located  at  2  <  —c/2 
in  the  circular  waveguide.  For  simplicity,  we  assume  that  the  circular  wave¬ 
guide  is  terminated  at  2  <<  —c/2  by  a  matched  load,  i.e.,  any  —2-traveling 
wave  in  the  region  for  which  2  <  —c/2  is  never  reflected.  The  problem  is  to 
find  out  how  much  power  of  the  2-traveling  TMqi  wave  is  transmitted  into 
the  rectangular  waveguides  and  to  calculate  the  magnitudes  of  the  and 
2-components  of  the  electric  field  in  the  apertures  A\  and  A^. 


1.2  Method  of  Solution 

Seeking  to  solve  the  above-mentioned  problem  by  means  of  the  generalized 
network  formulation  for  aperture  problems  [3],  we  close  the  apertures  Ai  and 
A2  with  perfect  conductors  of  infinitesimal  thickness.  As  shown  in  Fig.  2,  we 
place  the  surface  density  of  magnetic  current  on  the  region  1  side  of  the 
closed  aperture  Ai,  on  the  region  3  side  of  Ai,  on  the  region  2 

side  of  the  closed  aperture  Aj,  and  on  the  region  3  side  of  Aj.  The 

magnetic  currents  in  Fig.  2  are  supposed  to  be  located  right  on  (infinitesimal 
distances  from  either  side)  the  closing  conductors.  The  finite  displacement  of 
these  magnetic  currents  from  the  closing  conductors  in  Fig.  2  is  only  for  the 
purpose  of  illustration.  With  the  arrangement  of  magnetic  currents  in  Fig.  2, 
the  tangential  electric  field  is  continuous  across  Ai  and  A2.  Now,  the  fields 
in  Fig.  2  will  be  the  same  as  those  m  Fig.  1  if  and  are  adjusted 

such  that  the  tangential  magnetic  field  is  continuous  across  Ai  and  Aj. 

Continuity  of  the  tangential  magnetic  field  across  Ai  is  expressed  cis 

(1.4) 

where  IliljniJ-i  M.)  is  the  tangential  magnetic  field  radiated  by  the  combina¬ 
tion  of  the  electric  current  J_  and  the  magnetic  current  M.  in  region  r  where 
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Fig.  2.  Top  and  side  views  of  the  situation  equivalent  to  that  ot  Fig.  1. 
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r  =  1  or  3.  In  (1.5)  to  follow,  r  =  2  or  3.  Continuity  of  the  tangential 
magnetic  field  across  is  expressed  as 

(1.5) 

Equation  (1.4)  is  supposed  to  be  valid  on  Ai,  and  (1.5)  is  supposed  to  be 
valid  on  ^42. 


1.2.1  Expansion  Functions 

Seeking  to  solve  (1.4)  and  (1.5)  for  and  by  the  method  of  moments 
[4],  we  let 

m.'"  =  '£EK™m.T(^.z)  +  '£  E  (1-6) 

?=1  p=l  q—O  P—0 

P+9^0 


=  +  E  E  (1-7) 

9=1  p=l  9=0  p=0 

P+9#0 


Upper  limits  of  the  summation  indices  in  (1.6)  and  (1.7)  will  be  chosen  later. 
In  (1.6)  and  (1.7),  the  U’s  are  unknown  coefficients  to  be  determined,  and 
Mp^(<zi.  z)  and  A/p^(<^,  z)  are  expansion  functions  given  by 
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where  S  is  either  TM  or  TE.  Moreover,  and  are  the  unit  vectors  in  the 
and  z-directions,  respectively.  Furthermore, 


=  (’T  -  <i>)Xo  +  I 
=  <^x<,  +  I 
=  z  +  f 
a  sin  <f>o 


(1.10) 

(1.11) 

(1.12) 

(1.13) 


In  (1.8)  and  (1.9),  e™  and  e™  are  the  y-  and  2- components  of  the  TM 
rectangular  waveguide  mode  function  given  by  eq.  (A. 10)*  of  [1]: 


‘I'K  p 

tcos 


2ir  q  . 

•”  y~  —  Sin 
kpgVoc  c 


(1.14) 

« 

(1.15) 


and  and  e™  are  the  y-  and  z-components  of  the  TE  rectanguleir  wave¬ 
guide  mode  function  gjven  by  eq.  (A.23)  of  [1]: 


^The  transverse  parts  of  the  modal  electric  fields  g™'*'  of  eq.  (A. 2)  of  [1]  auid 
of  eq.  (A.3)  of  [1]  are  proportional  to  £™- 

*An  equation  that  appears  in  a  reference  will  be  cited  by  placing  “eq.”  before  the 
equation  number.  An  equation  that  appears  in  the  present  report  will  be  cited  by  writing 
only  its  number  in  parentheses.  However,  an  equation  number  at  the  beginning  of  a 
sentence  will  always  be  preceded  by  “Equation”. 

*The  modal  electric  fields  of  eq.  (A.  14)  of  [1]  and  of  eq.  (A.  15)  of  [1]  are 

equal  to  ej^. 
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1.2.2  Approximations  to  the  Expansion  Functions  Ra¬ 
diate  Rectangular  Waveguide  Modes  in  Regions 
1  and  2 

The  expansion  functions  and  of  (1.8)  and  (1.9)  were 

chosen  such  th?t 


X  =  -Xo 

0  <  y^+  <  6 

1  0<2+<C 

(1.18) 

X  —  Xq 

0  <  y^"*"  <  b 

0  <  2+  <  c 

(1.19) 

where  y^"*",  2“^,  and  Xo  are  given  by  (1.10)-(1.13)  eind 

Mj,(y'^,2'^)  =  M^efp,(y+,2+)  -M^e5p,(y+,2+). 

(1.20) 

If  <i>o  is  small,  the  plane  surface  in  (1.18)  is  a  good  approximation  to  the  curved 
surface  in  (1.8)  because  —Xo  is  the  average  value  of  x  on  the  curved  surface 
in  (1.8).  If  <f)o  is  small,  the  plane  surface  in  (1.19)  is  a  good  approximation  to 
the  curved  surface  in  (1.9)  because  x<,  is  the  average  value  of  x  on  the  curved 
surface  in  (1.9). 

The  magnetic  current  —  ■,  z'^)  on  the  right-hamd  side  of  (1.18)  gives 

rise  to  a  voltage  di;“  at  (y*"*"  +  x'*'  +  dz'^)  with  respect  to  the  voltage  at 

(y^'^,z'*').  The  superscript  “a”  in  stands  for  approximate.  Here,  du“ 

is  measured  on  the  side  of  —  iV/p^(y^~*',z'*~)  facing  region  1.  Now, 

X  Mj,(y*''’,  2+)}  •  {liy  d2+).  (1.21) 

The  magnetic  current  M}yq{4>iz)  on  the  left-hand  side  of  (1.18)  gives  rise  to 
a  voltage  dv  at  ((^  -|-  d<j>,z  -f  dz)  with  respect  to  the  voltage  at  {4>,  z).  Here, 
dv  is  measured  on  the  side  of  facing  region  1.  Now, 

dv  =  -  X  Ml\{<f>,z)]  •  {y^ad<i>-\-y,^dz).  (1.22) 

The  approximation  (1.18)  will  be  good  if  <i>o  is  small  and  if 

dv'^  =  dv.  (1.23) 
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(1.24) 


Substitution  of  (1.8)  into  (1.22)  leads  to 


=  ejp,(y^'*',2+)xad^  -  efp,(y^+,  2+)  dz. 
Substitution  of  (1.20)  into  (1.21)  leads  to 


dt;“  =  -eJp,(y*+,2+)dy*+  -  efp,(y*+,2+)  d2+. 

(1.25) 

From  (1.10)  and  (1.12), 

=  —Xod(j) 

(1.26) 

dz"*"  =  dz. 

(1.27) 

Substitution  of  (1.26)  and  (1.27)  into  (1.25)  gives 

(1.28) 

Since  the  right-hand  side  of  (1.28)  is  equal  to  that  of  (1.24),  (1.23)  is  satisfied. 
Therefore,  the  approximation  (1.18)  will  be  good  if  <f>o  is  small.  Similarly,  it 
can  be  shown  that  the  approximation  (1.19)  will  be  good  if  <j>o  is  small. 

One  can  verify  that 

Therefore,  when  placed  on  the  region  1  side  of  a  conductor  that  closes  the 
approximate  aperture  surface  described  on  the  right-hand  side  of  (1.18),  the 
magnetic  current  —  Mp^(y^'*'.2'*')  on  the  right-hand  side  of  (1.18)  produces 
an  electric  field  whose  transverse  part  is  ep,(y*'*',2''')  on  the  region  1  side  of 
this  magnetic  current.  Hence,  the  magnetic  current  on  the  right-hand  side  of 

(1.18)  excites  only  the  rectangular  waveguide  mode  in  region  1.  One 

can  verify  that 

Therefore,  when  placed  on  the  region  2  side  of  a  conductor  that  closes  the 
approximate  aperture  surface  described  on  the  right-hand  side  of  (1.19),  the 
magnetic  current  on  the  right-hand  side  of  (1.19)  produces  an 

electric  field  whose  transverse  part  is  ep,(y^'*’,  z"*")  on  the  region  2  side  of  this 
magnetic  current.  Hence,  the  magnetic  current  on  the  right-hand  side  of 

(1.19)  excites  only  the  6  rectangular  waveguide  mode  in  region  2. 

^Recall  that  6  is  either  TM  or  TE. 
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1.2.3  The  Matrix  Equation 

The  symmetric  product  <  A,  B  >  of  two  vectors  A  and  B.  is,  by  definition, 
the  surface  integral  of  their  dot  product  over  whichever  aperture  they  are 
defined: 

<A,B>=[f  ARds.  (1.31) 

J  JAi  or  A, 


Here,  ds  is  the  differential  element  of  surface  area.  Substituting  (1.6)  and 
(1.7)  into  (1.4)  and  taking  the  sjrmmetric  product  of  (1.4)  with  each  of  the 
expansion  functions  and  {M.mn}  substituting  (1.6)  and 

(1.7)  into  (1.5)  and  taking  the  symmetric  product  of  (1.5)  with  each  of  the 
expansion  functions  and  we  obtciin  the  matrix  equation 


■  i/lTM 
t/lTE 

yriB 


flTM 

J\TE 

pTM 

^TE 


(1.32) 


where  the  y ’s  are  square  matrices  and  the  V’s  and  the  7’s  are  column  vectors. 
The  element  of  is  given  by 


~  *p<i  ’ 


j  =  1, 2,  •  •  • , . 
7  =  1,2 
6  =  TM,TE 


(1.33) 


where  is  the  maximum  value  of  j.  The  subscript  j  is  a  condensation 
of  the  double  subscript  pq;  one  and  only  one  positive  integer  is  aissigned 
to  each  combination  of  subscripts  p  and  q.  The  condensation  of  pq  into  j 
depends  on  S.  In  the  first  double  summation  on  the  right-hand  side  of  (1.6) 
where  S  is  TM,  p  and  q  run  though  all  positive  integers  such  that 

BKM  (1.34) 

where  BKM  enters  as  input  data  into  the  computer  program  that  will  be 
described  and  listed  in  subsequent  chapters.  In  the  second  double  summa¬ 
tion  on  the  right-hand  side  of  (1.6)  where  6  is  TE,  p  and  q  run  through  all 

0  =  1,2,  •• 
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nonnegative  integers  except  p  =  q  =  0  such  that  (1.34)  is  satisfied.  The 
element  of  is  given  by 


{i  =  1,2,  •  •  • 
a  =  1,2 
0  =  TM,TE 


(1.35) 


where  is  the  maximum  value  of  i.  If  =  6,  i  would  be  the  same  con¬ 
densation  of  mn  that  j  was  of  pq  in  (1.33).  The  subscript  “tan”  need  not  be 
affixed  to  in  (1.35)  because  is  tangent  to  In  (1.32), 


= 


yl.lTM.lTM  yl.lTM.lTE 
yl.lTE.lTM  yl.lTE.lTE 

0  0 

0  0 


(1.36) 


0  0 

0  0 

y2,2TM,2TM  y2,2TM,2TE 

y2,2TB,2TM  y2,2TB,2TE 


(1.37) 


■  y3,lTM,lTM  yS.lTM.lTE  y3,lTM,2TM  y3,lTM,2TE  ■ 
y3,lTE,lTM  y3,lTE,lTE  y3,lTE,2TM  y3,lTE,2TE 
^  =  y3,2TM,lTM  y3,2TM,XTE  y3,2TM,2TM  y3,2TM,2TE  •  (1-38) 

y3,2TE,lTM  y3,2TE.lTE  y3,2TE,2TM  y3,2TE,2TE 


In  (1.36),  the  element  of  the  submatrix  is  given  by 


f  i  =  l,2,  ..,iV^ 
I  6  =  TM,TE. 


(1.39) 


In  (1.37), 


^2,2P,2S  _ 


JAo 


i  =  l,2,---,iV^ 
;  =  l,2,...,iV« 
/?  =  TM,TE 
6  =  TM,TE. 


(1.40) 


In  (1.38), 


j  =  1,2,---,7V^ 

7  =  1,2’ 

.  S  =--  TM,TE. 

In  (1.39)-(1.41),  j  is  the  same  condensation  of  pq  as  in  (1.33),  and  i  is  the 
same  condensation  of  mn  as  in  (1.35). 

In  the  present  report,  the  Y's  and  the  /’s  in  (1.32)  are  calculated.  Then, 
(1.32)  is  solved  for  the  V’s.  These  K’s  are  then  used  to  calculate  the  following 
quantities: 

1.  The  time-average  power  of  the  -z- traveling  TMqj  wave  in  the  circular 
waveguide.  The  superscript  “e”  indicates  that  the  z-component  of  the 
electric  field  of  the  wave  is  even  in  <f>. 


2.  The  time-average  power  of  the  — z-traveling  TEJj  and  TEJj  waves  in  the 
circular  waveguide.  The  superscript  “o”  indicates  that  the  z-component 
of  the  magnetic  field  of  the  wave  is  odd  in  <^. 

3.  The  time-average  powers  of  the  -|-z-  and  —z-traveling  TEjo  waves  in 
the  rectangular  waveguides. 

4.  The  magnitudes  of  the  <f>-  and  z-components  of  the  electric  field  in  the 
apertures. 

If  \E^\  represents  any  one  of  the  above  quantities,  then 

=  14“  I  +  E  E  (C“ 

g=l  p=l 

+  E  E  (!•«) 

g=0  P=0 

P+7^0 


where  |  \  is  what  |  E,t,  |  would  be  if  all  the  K’s  were  zero.  Furthermore, 

I  \pq  what  I E^  1  would  be  if  =  0,  if  were  unity,  and  if  all  the 
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other  V’s  were  zero.  Here,  o  is  1  or  2,  and  ^  is  TM  or  TE.  The  upper  limits 
of  the  indices  of  the  summations  in  (1.42)  will  be  chosen  later.  These  upper 
limits  must  be  the  same  as  those  in  (1.6)  and  (1.7). 
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Chapter  2 


Instructions  for  Using  the 
Computer  Program 


The  computer  program  is  available  on  diskette.  On  diskette,  the  computer 
program,  which  consists  of  a  main  program  and  some  subprograms,  is  stored 
in  the  file  JAN.92.  Sample  input  data  are  stored  in  the  file  JAN92.DAT. 
These  files  are  named  JAN.92  and  JAN92.DAT  because  January  1992  is  the 
date  of  the  present  report,  the  report  in  which  the  computer  program  is 
described  and  listed.  The  main  program,  the  subroutines  MODES,  BESIN, 
BES,  INTERPOL,  PHI,  and  DON,  the  function  subprogram  FXY,  and  the 
subroutines  DECOMP  and  SOLVE  axe  stored  in  order  in  the  file  JAN.92. 

There  are  two  modules  of  input  data  in  the  file  JAN92.DAT.  The  first 
module  of  input  data  is  preceded  by  the  three  comment  statements 

C  THIS  IS  THE  FIRST  MODULE  OF  INPUT  DATA. 

C  REMOVE  IT  FROM  THE  FILE  JAN92.DAT 
C  AND  PUT  IT  IN  THE  FILE  IN. DAT. 

and  followed  by  the  comment  statement 

C  THIS  IS  THE  SECOND  MODULE  OF  INPUT  DATA. 

The  second  module  of  input  data  is  preceded  by  the  three  comment  state¬ 
ments 

C  THIS  IS  THE  SECOND  MODULE  OF  INPUT  DATA. 

C  REMOVE  IT  FROM  THE  FILE  JAN92.DAT 
C  AND  PUT  IT  IN  THE  FILE  BESIN.DAT. 
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The  last  line  of  the  second  module  of  input  data  is  the  last  line  in  the  file 
JAN92.DAT. 

To  use  the  program,  first  follow  the  instructions  given  in  the  comment 
statements  in  the  preceding  paragraph,  i.e.,  create  input  data  files  named 
IN. DAT  and  BESIN.DAT,  move  the  first  module  of  input  data  into  IN. DAT, 
and  move  the  ..econd  module  of  input  data  into  BESIN.DAT.  The  data 
in  IN. DAT  are  read  by  statements  in  the  main  program.  The  data  in 
BESIN.DAT  are  read  by  statements  in  the  subroutine  BESIN.  One  can 
modify  the  input  data  to  suit  his  needs.  The  input  data  are  described  in 
Section  2.1.  Modification  of  the  input  data  may  require  an  increase  in  the 
storage  area  allocated  to  some  arrays.  Minimum  allocations  of  Mrays  are 
given  in  Section  2.3.  Next,  create  output  data  files  named  OUT. DAT  and 
BESOUT.DAT.  Then,  give  the  command  or  commands  necessary  to  run 
the  program  that  resides  in  JAN.92.  Running  the  program  causes  output 
data  to  be  written  in  the  output  data  files  OUT.DAT  and  BESOUT.DAT. 
The  data  in  OUT.DAT  are  written  by  statements  in  the  main  program.  The 
data  in  BESOUT.DAT  are  written  by  statements  in  the  subroutine  BESIN. 
The  final  step  in  using  the  program  is  to  interpret  the  output  data.  If  the 
program  runs  without  difficulty,  only  the  final  output  data  need  be  inter¬ 
preted:  intermediate  output  data  can  be  ignored.  The  final  output  data  will 
be  described  in  Section  2.2.1. 

The  complete  computer  program,  the  two  modules  of  input  data,  emd  the 
resulting  output  data  are  listed  in  the  present  report.^  The  two  modules  of 
input  data  are  listed  in  Section  2.1.3.  The  main  program,  the  subroutines 
MODES,  BESIN,  BES,  INTERPOL,  PHI,  and  DGN,  and  the  function  sub¬ 
program  FXY  are  listed  in  Chapters  3  to  10,  respectively.  The  subroutines 
DECOMP  amd  SOLVE  are  listed  in  Chapter  11. 


2.1  The  Input  Data 

There  are  two  modules  of  input  data. 


^The  “resulting  output”  is  the  output  that  is  obtained  when  the  computer  program  is 
run  with  the  input  data  listed  in  the  present  report. 
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2.1.1  The  First  Module  of  Input  Data 

The  first  module  of  input  data  is  read  from  the  file  IN.DAT  by  means  of  the 
following  statements  early  in  the  mjiin  program: 

READ(20,10)  B,C,L1,L2,L3,BKM,XM,ZL1,ZL2 
10  FORMAT f4D14. 7) 

READ(20 , 144)  KAM , BKAO , DBKA , KE3M , NPHI , NZ 
144  F0RMAT(I4,2D14.7,3I4) 

READ(20 , 146) (KE3(I) ,I»1 .KE3M) 

146  F0RMAT(15I4) 


In  the  first  of  the  above  three  read  statements, 


B  =  ‘ 
a 

(2.1) 

C  =  H 

a 

(2.2) 

LI  =  — 
a 

(2.3) 

L2  =  ii 

a 

(2.4) 

L3  =  — . 

a 

(2.5) 

The  fields  in  the  rectangular  waveguides  are  expanded  as  linear  combi¬ 
nations  of  all  rectangular  waveguide  modes  whose  cutoff  wavenumbers  do 
not  exceed  BKM/6.  The  cutoff  wavenumber  of  both  the  TMp,  and  TEp, 
rectangular  waveguide  modes  is  fcp,  given  by  (see  eq.  (A.8)  of  [1]) 

(2.6) 

Hence,  the  values  of  p  and  q  in  (1.6)  and  (1.7)  are  limited  by  (1.34). 

The  field  in  the  circular  waveguide  is  expanded  as  a  linear  combination 
of  a  finite  number  of  circular  waveguide  modes.  This  number  is  controlled 
by  the  input  variable  XM.  The  cutoff  wavenumber  of  both  TM*,  and  TM", 
circular  waveguide  modes  is  given  by  (see  eqs.  (B.7)  and  (B.30)  of  [1]) 
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where  x,,  is  the  root  of 


where  J^.  is  the  cylindrical  Bessel  function  of  the  first  kind  of  order  r.  The 
superscript  “e”  in  TM®,  indicates  that  the  z-component  of  the  modal  electric 
field  is  even  in  <f>.  The  superscript  “o”  in  TM“,  indicates  that  the  x-component 
of  the  modal  electric  field  is  odd  in  <l>.  The  roots  {xr*,  s  =  1,2, 3,  ••  •}  are 
ordered  such  that 

0  <  x,-!  <  Xr2  <  Xr3  -‘.  (2.9) 

The  cutoff  wavenumber  of  both  TE®,  and  TE",  circulau*  waveguide  modes  is 
given  by  (see  eqs.  (B.41)  and  (B.59)  of  {!]) 

kjf  =  ill  (2.10) 

a 

where  x',  is  the  s‘^  root  of 

where  J'  is  the  derivative  of  J,  with  respect  to  its  argument.  The  superscript 
“e”  in  TE®,  indicates  that  the  x-component  of  the  modal  magnetic  field  is 
even  in  0.  The  superscript  “o”  in  TE°,  indicates  that  the  z-component  of  the 
modal  magnetic  field  is  odd  in  4>.  The  roots  {x',,  s  =  1, 2, 3,  •  •  are  ordered 
such  that 

0  <  x^i  <  x’,2  <  ^3  •  •  •  •  (2-12) 

The  roots  {xrj}  and  {x',}  interlace  such  that  (see  eq.  (B.3)  of  [2]) 

0  <  Xoi  <  Xqi  <  X02  <  Xo2  <  X03  <  Xo3  •  •  • 

r  <  Xj.^  <  Xrl  <  Xj.2  <  Xr2  <  X,.3  <  Xr3  *  •  ‘  ,  T  =  1, 2,  •  •  ■ 

Truncations  of  the  sequences  in  (2.13)  are 

0  <  Xoi  <  Xqj  <  Xo2  <  Xg2  •  •  •  Xo*„„  <  Xq,^^^ 

r  <  x;i  <  Xrl  <  X^J  <  Xr2  •  •  •  <  Xr,„„ ,  T  =  1,  2,  ■  ■  •  , 
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where  5niax  depends  on  r.  Given  r,  is  the  largest  positive  integer  s  such 
that 


<  XM,  r  =  0 
i;,  <XM,  r  =  1,2,3, 


(2.15) 


where  XM  is  tne  input  variable  mentioned  prior  to  (2.7).  If  (2.15)  is  not 
satisfied  for  s  =  1,  then  Sm®,  =  0.  Assuming  that  xoi  <  XM,  is  the 
largest  positive  integer  r  such  that  x'j  <  XM.  The  field  in  the  circular 
waveguide  is  expanded  in  terms  of  all  the  TM*,,  TM",,  TE®,,  and  TE®, 
circular  waveguide  modes  for  which  {rs}  is  the  full  range  of  subscripts  in 
(2.14). 

Instead  of  using  all  the  circular  waveguide  modes  mentioned  in  the  previ¬ 
ous  sentence,  perhaps  we  should  have  used  only  those  TM®,  and  TM®,  modes 
for  all  {rs}  such  that 

Xr,  <  XM  (2.16) 

and  only  those  TE®,  and  TE®,  modes  for  all  {rs}  such  that 


x;,  <  XM. 


(2.17) 


However,  if  we  did  so,  the  majcimum  value  of  s  in  (2.17)  would  not  necessau’ily 
be  the  same  eis  the  maximum  value  of  s  in  (2.16).  The  only  difference  between 
the  allowed  by  (2.16)  and  (2.17)  and  the  {x„,x',}  in  (2.14)  is  that 

we  could  have 

x',_  >  XM  (2.18) 

or 

x„„„  >  XM  (2.19) 

in  (2.14).  The  root  (2.18)  is  not  allowed  by  (2.17),  and  the  root  (2.19)  is  not 
allowed  by  (2.16). 

Whereas  the  previously  described  first  seven  variables  in  the  first  read 
statement  are  real,  the  last  two  variables  in  this  read  statement  are  complex. 
These  complex  variables  are  ZLl  and  ZL2  given  by 

ZLl  = 

ZL2  = 
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(2.20) 

(2.21) 


where  is  the  admittemce  of  the  TEjo  rectangular  waveguide  mode  (see 

eq.  (A. 25)  of  [1]): 

vTE  _  7io 
^10  ~ 

JUfi 

where  uj  is  the  angular  frequency  and  (see  eq.  (A.12)  of  [1]) 

(2.22) 

7io  = 

.1  _  i.2 
■10  * 

(2.23) 

where,  according  to  (2.6), 

In  (2.23),  k  is  the  wavenumber  given  by 

(2.24) 

k  =  . 

In  view  of  (2.24),  substitution  of  (2.23)  into  (2.22)  gives 

(2.25) 

where  t]  is  the  intrinsic  impedance  given  by 

(2.26) 

Substituting  (2.26)  into  (2.20)  and  (2.21),  we  obtain 

(2.27) 

ZLl  =  -  ^ 

10 

1 

(2.28) 

^ik^  ^  ■ 

(2.29) 

The  first  seven  variables  in  the  first  read  statement  are  obviously  dimen¬ 
sionless.  The  variables  ZLl  of  (2.28)  and  ZL2  of  (2.29)  are  dimensionless 
because  Zifr}  and  Zj/t?  are  dimensionless.  Therefore,  all  the  variables  in  the 
first  read  statement  are  dimensionless. 

The  variables  KAM,  BKAO,  and  DBKA  in  the  second  read  statement  are 
such  that  the  waveguide  mode  converter  problem  is  solved  KAM  times,  once 
for  each  of  the  following  values  of  ka-. 

ka  =  BKAO  -h  (KA  -  1)  *  DBKA,  KA  =  1, 2, 3,  •  •  • ,  KAM.  (2.30) 
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The  variables  KE3M,  hJPHI,  and  NZ  in  the  second  read  statement  and 
{KE3(I),  I  =  1,2,  ■  •  • ,  KE3M}  in  the  third  read  statement  control  the  calcu¬ 
lation  and  the  writing  out  of  the  magnitudes  of  the  (j>-  and  z-components  of 
the  normalized  electric  field  in  the  apertures  Ai  amd  A^.  These  magnitudes 
aire 


Igj'"'!  ^ 

1  i7»TMc+  I  ’  I  riTMc+ 1  ’  I  i7TMe+ 1  ’  |  i7'TMe+ 1 

liloi  Inns  Inns  1-^1  Inns  l^^l  Inns 

Here,  is  the  (/►-component  of  the  electric  field  at 

(«,  z)  =  ({-r  +  ^,  (- 1  +  2^1^-!-)  ,  J  =  1, 2,  •  ■  • ,  NPHi}  ,  o) 
in  aperture  A\,  and  is  the  z-component  of  the  electric  field  at 


(2.31) 


(2.32) 


(2.33) 


in  aperture  4i.  Moreover,  E^^^^  is  the  (^componen^ 


^  the  electric  field  at 


(^,  z)  =  (1^.  (-1  +  2 J  ,  J  =  1, 2,  ■  ■  ■ , NPHl)  ,  o)  (2.34) 

in  aperture  A2,  and  E[^^^  is  the  z-compo  'ent  of  the  electric  field  at 

(4’,  ^)  =  (0.  {  J  (-1  +  .  J  =  1. 2,  •  ■  • .  Nz})  (2.35) 

in  aperture  A2.  Finally,  Imu  is  the  root  mean  square  vadue  of  the 

transverse  part  of  taken  over  the  cross  section  of  the  circulair  wave¬ 
guide  at  z  =  0.  Here,  is  the  electric  field  of  the  TM^t  wave^  of  unit 

amplitude  traveling  in  the  z-direction  in  the  circular  vaveguide.  Otherwise 
stated,  is  the  electric  field  that  would  exist  in  the  circulair  waveguide 

if  there  were  no  reflections,  i.e.,  if  the  apertures  A\  and  A2  were  closed  with 
perfect  conductors  and  if  the  circular  waveguide  were  to  extend  to  z  =  00 
instead  of  being  terminated  by  a  perfectly  conducting  wall  at  z  =  Z3. 

The  calculation  and  the  writing  out  of  the  aperture  field  magnitudes 
(2.31)  are  controlled  by  the  input  array  KE3  according  to 

^The  superscript  “e”  in  TMol"  indicates  that  the  r-component  of  the  electric  field  of 
the  wave  is  even  in  <p.  The  superscript  “-f-”  in  TMgf  indicates  that  the  wave  travels  in 
the  +r-direction. 
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KAE*1 

DO  48  KA»1,KAM 
BKA»BKAO+ (KA- 1 ) ♦DBKA 

C  FORTRAN  STATEMENTS  TO  SOLVE  THE  WAVEGUIDE  MODE  CONVERTER 

C  PROBLEM  FOR  THE  ABOVE  VALUE  OF  BKA. 

IF(KA.NE.KE3(KAE))  GO  TO  48 
KAE-KAE+1 

C  FORTRAN  STATEMENTS  TO  CALCULATE  AND  TO  WRITE  OUT  THE 
C  APERTURE  FIELD  MAGNITUDES  (2.31). 

48  CONTINUE 


where 

BKA  =  ka.  (2.36) 

According  to  the  above  FORTRAN  statements,  if  one  choses 

1  <  XE3(1)  <  KE3(2)  <  KE3(3)  •  •  • ,  KE3(KE3M)  (2.37) 

where 

KE3M  <  KAM  (2.38) 

and 

KE3(KE3M)  >  KAM,  (2.39) 

then  the  aperture  field  magnitudes  (2.31)  are  calculated  and  written  out  for 


ka  =  {BKAO  +  (KE3(J)  -  1)  *  DBKA,  J  =  1, 2,  •  •  • ,  KE3MM} 
where 


KE3MM  = 


KE3M  -  1, 
KE3M, 


KE3(KE3M)  >  KAM 
KE3(KE3M)  =  KAM. 


(2.40) 

(2.41) 


2.1.2  The  Second  Module  of  Input  Data 

The  second  module  of  input  data  is  read  by  means  of  statements  in  the 
subroutine  BESIN.  One  who  merely  uses  the  computer  program  does  not 
have  to  concern  oneself  with  this  module  of  input  data  because  it  is  always 
the  same  in  the  sense  that  one  will  never  have  to  change  the  numerical  values 
contained  in  it. 
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2.1.3  Sample  Input  Data 

When  the  computer  program  was  run  with  the  input  data  listed  in  Section 
2.1.3,  the  output  data  were  those  listed  in  Section  2.2.2.  These  input  data 
Me  for  the  structure  of  Fig.  2  with 


-  =  1.1 
a 

(2.42) 

-  =  0.5 
a 

(2.43) 

L3  =  0.5  [a™]  95 

(2.44) 

.  _  1 

“  VTE 
^10 

(2.45) 

V  _  1 

“^2  —  y^TE 

(2.46) 

ka  =  2.95. 

(2.47) 

In  (2.44),  is  the  wavelength  of  the  TM  circular  waveguide  mode 

when  ka  =  2.95.  According  to  eq.  (8.4)  of  [2], 


[a™1  ^  =  3.67738806a 

I  Jfco=2.95 

SO  that 


(2.48) 


I3  =  1.838694a.  (2.49) 

In  (2.45)  and  (2.46),  is  the  characteristic  admittance  of  the  TEio  circular 
waveguide  mode  so  that  Zi  amd  Z2  are  matched  loads.  Consequently,  the 
electromagnetic  field  in  the  circular  waveguide  will  not  depend  on  either  Li 
or  L2  provided  that  L\  and  L2  are  large  enough  so  that  any  evanescent  wave 
emanating  from  either  the  termination  at  x  =  —  Li  or  that  at  z  =  Lj  will 
have  negligibly  small  amplitude  upon  arrival  at  the  pertinent  aperture  in  the 
circular  waveguide.  The  single  value  ka  of  (2.47)  weis  obtained  by  setting 

KAM  =  1  (2.50) 

BKAO  =  2.95.  (2.51) 
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Because  KAM  =  1,  the  value  of  DBKA  is  inconsequentiad.  The  values  of  the 
variables  BKM,  XM,  NPHI,  NZ,  KE3M,  and  KE3(1)  in  the  sample  input  are 
given  by 


BKM  =  15. 

(2.52) 

XM  =  40. 

(2.53) 

NPHI  =  81 

(2.54) 

NZ  =  21 

(2.55) 

KE3M  =  1 

(2.56) 

KE3(1)  =  1. 

(2.57) 

Because  of  (2.56)  and  (2.57),  the  magnitudes  of  the  <f>-  and  z-components  of 
the  normalized  electric  field  in  the  apertures  Ai  and  Aj  will  appear  in  the 
output  data. 


Listing  of  the  first  module  of  the  sample  input  data 

O.llOOOOOD+Ol  O.SOOOOOOD+00  0 . 4000000D+02  0.4000000D+02 
0.18386940-»^01  0.150000004^02  0.40000000402  0.10000000401 
0.00000000400  0.10000000401  0.00000000400 
1  0.29500000401  0.00000000400  1  81  21 

1 


Listing  of  the  second  module  of  the  sample  input  data 


ROOTS  OF  BESSEL  FUICTIOIS  ((X(l.S) .S=1.S0} ,  1=1.21) 


2.40482556 
18.07106397 
33.77582021 
49 . 48260990 
65.18996480 
80.89755587 
96.60526795 
112.31305028 
128.02087701 
143 . 72873367 
3.83170597 
19.61585851 
35.33230755 
51.04353518 


5.52007811 

21.21163663 

36.91709835 

52.62405184 

68.33146933 

84.03909078 

99.74681986 

115.45461265 

131.16244628 

146.87030763 

7.01558667 

22.76008438 

38.47476623 

54.18555364 


8.65372791 
24.35247153 
40.05842576 
55.76551076 
71.47298160 
87.18062984 
102.88837425 
118.59617663 
134.30401664 
150.01188246 
10.17346814 
25.90367209 
41.61709421 
57 . 32752544 


11.79153444 
27.49347913 
43.19979171 
58.90698393 
74.61450064 
90.32217264 
106.02993092 
121.73774209 
137.44558802 
153.15345802 
13.32369194 
29 . 04682853 
44.75931900 
60.46945785 


14.93091771 

30.63460647 

46.34118837 

62.04846919 

77.75602563 

93.46371878 

109.17148965 

124.87930891 

140.68716035 

156.29503427 

16.47063005 

32.18967991 

47.90146089 

63.61135670 
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66.75322673 
82.46225991 
98.17095073 
113.87944085 
129.58780325 
145.29607935 
5.13562230 
21.11699705 
36.86285651 
52.58602351 
68.30218978 
84.01528671 
99.72676573 
115.43728766 
131 . 14719653 
146.85668912 
6.38016190 
22.58272959 
38.37047243 
54.11161557 
69.83778844 
85.55726287 
101.27316212 
116.98692838 
132.69931991 
148.41077358 
7.58834243 
24.01901952 
39.85762730 
55.62165091 
71.36086067 
87.08876147 
102.81055633 
118.52867922 
134.24442164 
149 . 95853279 
8.77148382 
25.43034115 
41.32638325 
57.11730278 
72.87216130 
88.61030824 
104.33933531 
120.06283680 


69.89507184 
85.60401944 
101.31266182 
117.02112190 
132.72946439 
148.43772662 
8.41724414 
24.27011231 
40.00844673 
55.72962705 
71.44498987 
87.15768394 
102.86893265 
118.57931068 
134.28912367 
149.99854919 
9.76102313 
25.74816670 
41.52071967 
57.25765160 
72.98208040 
88.70066784 
104.41605517 
120.12949939 
135.84167526 
151.55297745 
11.06470949 
27.19908777 
43.01373772 
58.77083574 
74.50711546 
90.23350652 
105.95442227 
121.67198858 
137.38735644 
153.10120351 
12.33860420 
28.62661831 
44.48931912 
60 . 27024507 
76 . 02079343 
91.75669254 
107.48439983 
123 . 20706064 


73.03689523 
88.74576714 
104.45436679 
120.16279833 
135.87112236 
151.57937163 
11.61984117 
27.42067355 
43.15345378 
58.87301677 
74.58768817 
90.30002515 
106.01106552 
121.72131148 
137.43103562 
153.14039829 
13.01620072 
28.90835078 
44.66974312 
60.40322414 
76.12614918 
91.84394868 
107.55887218 
123.27202060 
138.98399610 
154.69615649 
14.37263667 
30.37100767 
46 . 16785351 
61.91924620 
77.65299182 
93.37803898 
109.09815708 
124.81521142 
140.53023118 
156.24383085 
15.70017408 
31.81171672 
47.64939981 
63.42205405 
79.16886409 
94.90275852 
110.62926667 
126.35115339 


76.17869958 
91 . 88750425 
107.59606326 
123.30447049 
139.01277739 
154.72101452 
14.79595178 
30.56920460 
46.29799668 
62.01622236 
77.73029706 
93.44231602 
109.15316729 
124.86329174 
140.67293310 
156.28223708 
16.22346616 
32.06485241 
47.81778569 
63.54840218 
79.27002139 
94.98711773 
110.70161965 
126.41449544 
142.12628474 
157.83731217 
17.61596605 
33.53713771 
49.32036069 
65.06699526 
80.79853407 
96.52237969 
112.24177180 
127.95835412 
143.67304979 
159.38641736 
18.98013388 
34.98878129 
50.80716520 
66.57289189 
82.31643800 
98.04853691 
113.77395226 
129.49512461 


79.32048718 
95.02923181 
110.73775478 
126.44613870 
142.15442966 
157.86265540 
17.95981949 
33.71651951 
49.44216411 
65.15927319 
80.87282695 
96.58456145 
112.29524056 
128.00525297 
143.71481735 
159.42406617 
19.40941523 
35.21867074 
50.96502991 
66.69324167 
82.41371955 
98.13018573 
113.84430334 
129.55692756 
145.26854326 
160.97944587 
20.82693296 
36.69900113 
52.47155140 
68.21417486 
83.94377989 
99.66654682 
115.38527625 
131 . 10142245 
146.81581590 
162.52896543 
22.21779990 
38.15986856 
53.96302656 
69.72289116 
85.46357030 
101 . 19405463 
116.91847126 
132.63898297 
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135.78273630 
151.50015689 
9.93610952 
26.82015198 
42.77848161 
58.59960563 
74.37237311 
90.12238683 
105.85985938 
121 . 58967984 
137.31448584 
153.03582678 
11.08637002 
28.19118846 
44.21540851 
60.06947700 
75.86211608 
91.62544340 
107.37246468 
123.10947057 
138.83988051 
154.56571475 
12.22509226 
29 . 54565967 
45.63844418 
61.52773517 
77.34195516 
93.11989054 
108.87746543 
124.62245614 
140.35911970 
156.08998503 
13.35430048 
30 . 88537897 
47.04870074 
62.97511353 
78.81240687 
94.60611070 
110.37515584 
126.12886972 
141.87239270 
157.60879431 
14.47550069 
32.21185620 


138.92639176 

154.64341016 

13.58929017 

30.03372239 

45.94901600 

61.76682490 

77.52374850 

93.27068030 

109.00632919 

124.73498132 

140.45899391 

156.17977144 

14.82126873 

31.42279419 

47.39416576 

63.23141837 

79.01655863 

94.77589002 

110.52052942 

126.25600101 

141.98536460 

157.71045331 

16.03777419 

32.79580004 

48.82593038 

64.69478124 

80.49975227 

96.27271125 

112.02729929 

127.77035603 

143.50669535 

159.23561409 

17.24122038 

34.15437792 

50.24532696 

66.14759402 

81.97381406 

97.76150589 

113.52691905 

129.27826963 

145.02016815 

160.75540496 

18.43346367 

35.49990921 


142.06996586 
167.78669721 
17.00381967 
33.23304176 
49.11577372 
64.91251478 
80.67435660 
96.41853497 
112.15252478 
127.88010007 
143.60337414 
159.32362318 
18.28758283 
34.63708935 
50.66818468 
66.39140576 
82.17000939 
97.92676484 
113.66823467 
129.40229081 
146.13067973 
160.85506870 
19.55453643 
36.02661506 
52.00769146 
67.86942699 
83.66631779 
99.42481648 
115.17668080 
130.91796177 
146.66206670 
162.38108649 
20.80704779 
37.40009998 
53.43522716 
69.31721152 
86 . 13373741 
100.91603286 
116.67813038 
132.42729694 
148.16768018 
163.90182250 
22.04698536 
38.76180702 


146.21343453 
160.92972194 
20.32078921 
36.42201967 
52.27946390 
68.06689027 
83.82428452 
09.56599267 
115.20846869 
131.02504929 
146.74763477 
162.46738741 
21.64154102 
37.83871738 
53.73832537 
69.54970927 
85.32257933 
101.07512166 
116.81560966 
132.54835716 
148.27583667 
163.99056802 
22.94617313 
39.24044800 
55.18474794 
71.02199904 
86.81178765 
102.67627274 
118.32564630 
134.06526490 
149.79821731 
165.52641118 
24.23388526 
40.62855372 
56.61958027 
72.48434982 
88.29233855 
104.06977136 
119.82883371 
135 . 57597775 
151.31494531 
167.04805790 
25.50945055 
42.00419024 


148.35683321 

164.07278793 

23.58608444 

39.60323942 

56.44069207 

71.22012770 

86.97360663 

102.71309006 

118.44418103 

134.16984093 

149.89178335 

165.61106911 

24.93492789 

41.03077369 

56.90524999 

72.70666117 

88.47436342 

104.22400772 

119.96268048 

135.69421667 

151.42084532 

167.14396783 

26.26681464 

42.44388774 

58.35788903 

74.18276693 

89.96627840 

105.72713851 

121.47422834 

137.21231496 

162.94418961 

168.67159646 

27.58374896 

43.84380142 

59.79930163 

75.64932664 

91.44975632 

107.22279166 

122.97906837 

138.72433580 

154.46197871 

170.19412130 

28.88737506 

45.23157410 
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48.44715139 
64.41227241 
80.27394491 
96.08445917 
111.86581184 
127.62893164 
143.37987941 
159.12229220 
15.58984788 
33.52636408 
49.83465351 
65.83980880 
81.72700494 
97.55526669 
113.34969265 
129.12285034 
144.88175097 
160.63062171 
16.69824993 
34.82998699 
51.21196700 
67.25826456 
83.17198872 
99.01884180 
114.82704216 
130.61082324 
146.37817038 
162.13391960 
17.80143515 
36 . 12365767 
52.57976906 
68.66813322 
84.60926767 
100.47547280 
116.29809015 
132.09303754 
147.86929295 
163.63231679 
18.89999795 
37.40818513 
53.93866621 
70.06986583 
86.03918598 
101.92542960 


51.65325167 
67.59047207 
83.43918980 
99.24261087 
115.01965195 
130.77995306 
146.52895616 
162.26997039 
19.61596690 
36.83357134 
53.05049896 
69.02397393 
84.89629058 
100.71634047 
116.50574569 
132.27560638 
148.03222428 
163.77944859 
20.78990636 
38.15637750 
54.43777693 
70.44860840 
86.34549652 
102.18298842 
117.98543364 
133.76541929 
149.53012967 
165.28397186 
21.95624407 
39.46920683 
55.81571988 
71.86484051 
87.78715986 
103.64282970 
119.45893600 
135.24957191 
151.02282228 
166.78366690 
23.11577835 
40 . 77282785 
57.18489860 
73.27309662 
89.22160778 
105.09612218 


54.85161908 
70.76533400 
86.60268848 
102.39973390 
118.17283486 
133.93052898 
149.67771696 
165.41741635 
23.27585373 
40.11182327 
56.25760472 
72.20431796 
88.06355952 
103.87621862 
119.66103113 
135.42784009 
151 . 18232600 
166.92800168 
24.49488504 
41.45109231 
57.65384481 
73.63464196 
89.51671063 
105.34576695 
121 . 14294273 
136.91941271 
152.68165898 
168.43370649 
25.70510305 
42.78043927 
59.04093404 
75.05674474 
90.96247628 
106.80864143 
122.61878084 
138.40542024 
154.17586070 
169.93465353 
26.90736898 
44.10059057 
60.41940985 
76.47102976 
92.40116781 
108.26508867 


58.04358793 

73.93729938 

89.76462879 

105.55592171 

121.32541227 

137.08069034 

152.82618144 

168.56464316 

26.77332255 

43.36836095 

59.45745691 

75.38133933 

91.22902609 

107.03500857 

122.81560878 

138.57958743 

154.33207905 

170.07629624 

28.02670995 

44.72194354 

60.86180468 

76.81692044 

92.68587205 

108.50729906 

124.29963753 

140.07284461 

155.83278459 

171.58314112 

29.27063044 

46.06571091 

62.25718939 

78.24445722 

94.13548463 

109.97304405 

125.77770123 

141.56062893 

157.32843800 

173.08529669 

30.50595016 

47.40034778 

63.64411751 

79.66433188 

95.57816038 

111.43247958 


61.23019798 
77 . 10673425 
92.92517238 
108.71125670 
124.47743061 
140.23046527 
155.97436765 
171.71166291 
30.17906118 
46.60813268 
62.65121739 
78.55545246 
94.39287509 
110.19280522 
125.96953239 
141.73088111 
157.48150449 
173.22434647 
31.45996004 
47.97429353 
64.06293782 
79.99590644 
95.85318889 
111.66769230 
127.45557930 
143.22575244 
158.98353070 
174.73229205 
32.73105331 
49.33078010 
65.46588380 
81.42848829 
97.30641638 
113.13615796 
128.93576606 
144.71524029 
160.48058160 
176.23561493 
33.99318498 
50.67823695 
66.86053301 
82 . 85356054 
98.75284036 
114.59842828 
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117.76306340 
133.66967093 
149.36626690 
166.12693867 
19.99443063 
38.68427639 
66.28920416 
71.46387689 
87.46206333 
103.36896632 
119.22213673 
136.04089230 
160.83623371 
166.61490648 
21.08614611 
39.96266349 
66.63187694 
72.86064361 
88.87819724 
104.80631766 
120.67663386 
136.60686227 
162.31232861 
168.09933262 
22.17249462 
41.21366706 
67.96712883 
74.23021912 
90.28786614 
106.23771026 
122.12342824 
137,96773380 
163.78368091 
169.67933048 
23 . 26677609 
42.46780721 
69.29636994 
76.60322667 
91.69132626 
107.66336376 
123.66699381 
139.42366263 
156.26041440 
171.06500571 


120.92646079 

136.72823638 

152.51044627 

168.27866519 

24.26918003 

42.06791700 

68.54682890 

74.67376871 

90.64914480 

106.54310808 

122.38820479 

138.20157249 

153.99313547 

169.76906326 

25.41701901 

43.35607320 

59.89897873 

76.06721817 

92.07006490 

107.98401623 

123.84436435 

139.66973827 

165.47102371 

171.25497299 

26.56978414 

44.63482975 

61,24477410 

77.46377900 

93.48460342 

109.41905827 

126.29608616 

141.13288046 

156.94423525 

172,73662180 

27.69789835 

46.90766387 

62.58360418 

78.83376063 

94.89303872 

110.84843970 

126.74056792 

142.59114000 

158.41289006 

174.21380299 


124.08874623 

139.88602761 

155.66606966 

171.43096061 

28.10241523 

46.41218961 

61.78976990 

77.87786897 

93.83307567 

109.71634063 

126.66302510 

141.36139187 

157.14941792 

172.92274044 

29.29087070 

46.71580944 

63.16242819 

79.27760620 

95.25847087 

111.16961587 

127.01179984 

142.83166272 

158.62903248 

174.41010189 

30.47327996 

48.01196294 

64.50782040 

80.67055998 

96.87760766 

112.69812056 

128.46623971 

144.29698294 

160.10403458 

175.89314920 

31.66011815 

49.30111134 

65.85630828 

82.06702611 

98.09072402 

114.03104944 

129.91350662 

146.76748887 

161.57454065 

177.37198271 


127.24999186 

143.04309944 

168.81917313 

174.58287710 

31.73341334 

48.72646412 

65.02305025 

81.07689772 

97.01417644 

112.88682801 

128.71669146 

144.62040776 

160.30611811 

176.07699201 

32.95366489 

60.04460602 

66.39440904 

82.48248211 

98.44379219 

114.33329914 

130.17797281 

145.99269847 

161.78639664 

177.66474681 

34.16726785 

51.35526466 

67.75868011 

83.88138905 

99.86725087 

115.77609113 

131.63400014 

147.46010968 

163.26312338 

179.04924287 

36.37471722 

62.65888365 

69.11591850 

86.27390141 

101.28478091 

117.21139142 

133.08492960 

148.92277333 

164.73641416 

180.62967773 


130.41027733 
146 . 19949814 
161.97278672 
177.73442683 
36.24708679 
62.01724128 
68.24732200 
84.27146907 
100.19272665 
116.06471661 
131.87928838 
147.67867242 
163.46027013 
179.22883118 
36.49339791 
53.34831233 
69.62666088 
86.68249684 
101.62632016 
117.50622446 
133.34296674 
149.16290292 
164.94315076 
180.71893336 
37,73268062 
64.67191918 
70.99888749 
87.08696117 
103.06386733 
118.96014243 
134.80146786 
150.62232324 
166.42154271 
182.20483087 
38.96543206 
56 . 98848722 
72.36437087 
88.48612676 
104.47566635 
120.38965105 
136.25494567 
152.08706115 
167.89555648 
183.68661859 


27 


24.33824962  28.83173038  32.82180276  36.S764S076  40.19209510 
43.71571242  47.17400457  50.58367114  53.95586528  57.29840365 
60.61697113  63.91582658  67.19823360  70.46675142  73.72341433 
76.96986585  80.20745037  83.43727983  86.66028299  89.87724253 
93.08882319  96.29669366  99.49804359  102.69659716  105.89162379 
109.08344686  112.27235076  115.46858672  118.64237751  121.82392144 
125.00339567  1*^. 18096899  131.36676416  134.53090991  137.70354262 
140.87475783  144.04465143  147.21331077  150.38081F61  153.54723893 
156.71264761  169.87710310  163.04066196  166.20337631  169.36529427 
172.52646038  175.68691587  178.84669901  182.00684532  185.16438789 
25.41714081  29.96160379  33.98870279  37.77286784  41.41306551 
44.95767675  48.43423920  51.86001993  55.24657561  58.60202207 

61.93227307  66.24176699  68.63391094  71.81138120  75.07630808 

78.33041549  81.67511556  84.81157774  88.04078020  91.26354816 

94.48058339  97.69248687  100.89977667  104.10290200  107.30226447 

110.49817724  113.69097235  116.88090682  120.06821766  123.25311603 
126.43579068  129.61641094  132.79612915  135.97208276  139.14739615 
142.32118214  145.49354333  148.66467323  151.83435729  155.00297369 
168.17049419  161.33698470  164.60250593  167.66711386  170.83086019 
173.99379280  177.15595604  180.31739107  183.47813615  186.63822689 
ROOTS  OF  DERIVATIVES  OF  BESSEL  FOICTIOIS  ((XP(I,S) ,S*1, 50) ,1=1,21) 
3.83170697  7.01558667  10.17346814  13.32369194  16.47063005 

19.61585851  22.76008438  25.90367209  29.04682853  32.18967991 

35.33230755  38.47476623  41.61709421  44.75931900  47.90146089 
51.04353518  54.18655364  57.32752544  60.46945786  63.61135670 

66.75322673  69.89607184  73.03689523  76.17869958  79.32048718 

82.46225991  86.60401944  88.74676714  91.88750425  95.02923181 

98.17095073  101.31266182  104.45436579  107.59606326  110.73775478 
113.87944085  117.02112190  120.16279833  123.30447049  126.44613870 
129.58780325  132.72946439  136.87112236  139.01277739  142.15442966 
145.29607936  148.43772662  151.67937163  154.72101452  157.86265540 
1.84118378  5.33144277  8.53631637  11.70600490  14.86358863 

18.01552786  21.16436986  24.31132686  27.45705067  30.60192297 

33.74618290  36.88998741  40.03344405  43.17662897  46.31959756 

49.46239114  52.60504111  55.74757179  58.89000230  62.03234787 

65.17462080  68.31683113  71.45898711  74.60109561  77.74316241 

80.88519235  84.02718959  87.16915764  90.31109957  93.45301801 

96.59491525  99.73679330  102.87865391  106.02049864  109.16232886 

112.30414577  115.44596048  118.58774396  121.72952706  124.87130058 
128.01306522  131.15482162  134.29667036  137.43831196  140.58004691 
143.72177563  146.86349853  150.00521597  153.14692830  156.28863581 
3.05423693  6.70613319  9.96946782  13.17037086  16.34752232 

19.51291278  22.67158177  25.82603714  28.97767277  32.12732702 
35.27553505  38.42265482  41.56893494  44.71455353  47.85964161 


28 


51.00429767 
66.72324096 
82.43799331 
98.1B05703S 
113.86187346 
129.57236632 
146.28231196 
4.20118894 
20.97247694 
36.78102068 
52.62881874 
68.25819654 
83.97954092 
99.69666083 
115.41128489 
131.12431149 
146.83625393 
5.31755313 
22.40103227 
38.26531699 
64.03737242 
69.78036353 
85.51042944 
101.23361611 
116.95270484 
132.66915487 
148.38380585 
6.41561638 
23.80358148 
39.73064023 
55.53119588 
71.29052908 
87.03120316 
102.76183477 
118.48643767 
134.20713647 
149.92516179 
7.50126614 
25.18392560 
41.17884947 
57.01137608 
72.78940366 
88 . 54236204 
104.28168751 


54.14859724 
69.86643601 
85.58064436 
101.29291390 
117.00402639 
132.71439301 
148.42425071 
8.01623660 
24.14489743 
39.93310862 
56.67566523 
71.40293768 
87.12322953 
102.83974863 
118.56399765 
134.26677452 
149.97854233 
9.28239629 
25.68975968 
41.42366660 
67.18762046 
72.92714162 
88.66649957 
104.37770230 
120.09617273 
136.81220898 
161.62656948 
10.51986087 
27.01030790 
42.89627316 
58.68628359 
74.43977491 
90.17796384 
106.90715140 
121.63084118 
137.36092598 
163.06861864 
11.73493595 
28.40977636 
44.35257920 
60.16994561 
75.94149646 
91.69109156 
107 . 42844688 


57.29259019 

73.00949296 

88.72322036 

104.43521224 

120.14616001 

136.86639961 

151.56617512 

11.34692431 

27.31005793 

43.08365266 

58.82194800 

74.64741272 

90.26677197 

105.98274768 

121.69665253 

137.40919772 

153.12080216 

12.68190844 

28.76783622 

44.67962314 

60.33677140 

76.07348960 

91.80033100 

107.52164246 

123.23964486 

138.95519692 

154.66928549 

13.98718863 

30.20284908 

46.05856627 

61.83808923 

77.58839718 

93.32437513 

109.06225282 

124.77510283 

140.49461707 

156.21180443 

15.26818146 

31.61787572 

47.52195691 

63.32680869 

79.09274823 

94.83934557 

110.57491146 


80.43635008 

76.15242892 

91.86572906 

107.57746933 

123.28824656 

138.99838749 

154.70808604 

14.58584829 

30.47026881 

46.23297108 

61.96775330 

77.69166407 

93.41018304 

109.12566565 

124.83925389 

140.55158376 

156.26303515 

15.96410704 

31.93853934 

47.73368762 

63.48525967 

79.21945893 

94.94494751 

110.66544908 

126.38282839 

142.09812309 

157.81195673 

17.31284249 

33.38544390 

49.21817461 

64.98980119 

80.73646930 

96.47047134 

112.19715718 

127.91923309 

143.63821620 

159.35502337 

18.63744301 

34.81339298 

50.68781778 

66.48221126 

82.24325646 

97.98717018 

113.72110579 


63.57988724 

79.29525830 

96.00817710 

110.71968869 

126.43031806 

142.14035790 

157.84998430 

17.78874787 

33.62694918 

49.38130009 

65.11316060 

80.83568905 

96.55347558 

112.26850936 

127.98180569 

143.69393509 

159.40524288 

19.19602880 

35.10391668 

50.88615915 

66.63309405 

82.36509317 

98.08936983 

113.80913324 

129.52602978 

145.24099161 

160.95458583 

20.57561452 

36.56077769 

52.37559153 

68.14057257 

83.88406356 

99.61628246 

115.34188065 

131.06324144 

146.78172930 

162.49817934 

21.93171602 

37.99964090 

53.85079464 

69.63635446 

85.39310406 

101.13460569 

116.86705181 


29 


120.01276912 
13S. 73848322 
1S1.460S0631 
8.57783649 
26.54503206 
42.61152217 
58.47887403 
74.27763106 
90.04436665 
105.79351984 
121.53196784 
137.26340993 
152.99001507 
9.64742165 
27.88926943 
44.03001034 
59.93454431 
75.75579686 
91.53764234 
107.29765441 
123.04428682 
138.782120:2 
154.51385546 
10.71143397 
29  21856350 
45.43548310 
61.37915081 
77.22443549 
93.02258289 
108.79439302 
124.54996459 
140.29480729 
156.03218709 
11.77087667 
30 . 53450475 
46.82895945 
62.81337965 
78 . 68403628 
94.49955372 
110.28401853 
126.04922639 
141.80165465 
157.54516231 
12.82649123 


123 . 15827530 
138 . 88314289 
154.60456734 
12.93238624 
29.79074858 
45.79399966 
61.64238785 
77.43290562 
93.19531609 
108.94191644 
124.67873146 
140.40906571 
156.13488470 
14.11551891 
31.15532656 
47.22175847 
63.10339820 
78.91454945 
94  :j869 

l^O  44786667 
12:^.19245144 
141.92888993 
157.65963202 
15.28673767 
32.50524735 
48 . 63692265 
64.55368443 
80.38692888 
96.17863168 
111.94658487 
127.69966351 
143.44280122 
159.17896326 
16.44785275 
33.84196578 
50.04042897 
65.99388505 
81.85050394 
97.65844131 
113.43834073 
129.20058350 
144.95097616 
160.69302549 
17.60026656 


126.30358618 
142.02766654 
157.74852986 
16.52936588 
33.01517864 
48.97107095 
64.80374053 
80.58710208 
96.34565085 
112.08992959 
127.82523986 
143.55454307 
159.27962473 
17.77401237 
34.39662855 
50.40702097 
66.26961367 
82.07197091 
97.84367007 
113.59759895 
129.34029514 
145.07543449 
160.80524467 
19.00459354 
36.76379293 
51.83078393 
67.72508544 
83.54782516 
99.33375580 
115.09819332 
130.84897070 
146.59051940 
162.32553797 
20.22303141 
37.11800042 
53.  ..1322321 
69.17075142 
85.01509806 
100.81623660 
116.59197013 
132.36147361 
148.09996779 
163.84064702 
21.43085424 


129.44871605 
145.17206303 
160.89239965 
19.94185337 
36.22438055 
52.14375297 
67.96323864 
83.74034356 
99.49542974 
116.23759089 
130.97151151 
146.69985354 
162.42424269 
21.22906262 
37.62007804 
53.58699544 
69.43355902 
85.22821114 
100.99560878 
116.74689036 
132.48784093 
148.22176832 
163.95070256 
22.50139873 
39.00190281 
55.01844255 
70.89378467 
86.70730178 
102.48804162 
118.24926541 
133.99791395 
149.73797930 
166.47192277 
23.76071586 
40.37106891 
56.43889206 
72.34447202 
88.17802420 
103 . 97304045 
119.74496202 
135.50192928 
151.24865026 
166.98804062 
25.00851870 


132.59367782 
148.31634048 
164.03618206 
23.26805293 
39.42227468 
55.31282033 
71.12113304 
86.89273506 
102.64470429 
118.38492865 
134.11766314 
149.84500765 
165.56874567 
24.58719749 
40.83017868 
56.76259848 
72.59553655 
88.38339823 
104.14691826 
119.89577586 
135.63510964 
151.36790460 
167.09601476 
26.89127728 
42.22463843 
58.20095582 
74.06013637 
89.86551073 
105.64156505 
121.39984324 
137 . 14651851 
152.88519695 
168.61812831 
27.18202153 
43 . 60676490 
59.62863131 
75.51545393 
91.33945869 
107.12894162 
122.89736594 
138.65198060 
154.39704260 
170.13521901 
28.46085728 


30 


31.83842446 
48.21133384 
64.23784974 
80.136048S7 
96.96889462 
111.76679640 
127.54228514 
143.30283677 
159.05292666 
13.87884307 
33.13144995 
49.58339642 
65.65312168 
81.57788618 
97.43092221 
113.24297620 
129.02934241 
144.79851973 
160.55661928 
14.92837449 
34.41454566 
50.94584925 
67.06970612 
83.01293114 
98.88593209 
114.71279291 
130.51058919 
146.28886176 
162.05337332 
15.97543881 
35 . 68854409 
52.29931939 
68.45806499 
84.44053706 
100.33420074 
116.17646804 
131.98620672 
147.77401370 
163.54631625 
17.02032327 
36.95416965 
S3.64436'^64 
69.84862681 
85.86103195 


35.16671443 
51.43310617 
67.42457850 
83.30669829 
99.13079026 
114.92338778 
130.69541570 
146.46368278 
162.20195932 
18.74609092 
36.48054830 
52.81568683 
68.84629065 
84.75290311 
100.59597977 
116.40196472 
132.18435374 
147.96078119 
163.70589931 
19.88322436 
37.78437861 
54.18883107 
70.25950133 
86.19248048 
102.06429160 
117.87429661 
133.66758129 
149.44272406 
165.20497428 
21.01640493 
39.07899819 
55.56312778 
71.66464970 
87 . 62476630 
103.50598977 
119.34059592 
135 . 14527282 
150.92955708 
166.69930769 
22 . 14224735 
40.36610275 
56.90910879 
73.06213892 
89.05007287 


38.46038872 
54.64610624 
70.60716320 
86.47418969 
102.29141924 
118.07917175 
133.84799977 
149.60394161 
166.36070763 
22.62930030 
39.79194072 
56.03711869 
72.03478491 
87.92547036 
103.75969067 
119.56002670 
135.33873658 
151.102695.^2 
166.85684997 
23.81938909 
41.11351238 
67.41987615 
73.46409890 
89.36928364 
105.22101975 
121.03476072 
136.82385774 
152.59607631 
168.35619880 
25.00197150 
42.42585443 
68.79393376 
74.86651046 
90.80594897 
106 . 67595882 
122.50354778 
138.30353431 
154.08452540 
169.85187372 
26 . 17776620 
43.72962958 
60.15979410 
76.26940192 
92.23576396 


41.72862556 

57.84905686 

73.78612937 

89.64075672 

105.45089726 

121.23421211 

137.00007541 

152.75393739 

168.49918760 

26.24604777 

43.07548680 

59.24957708 

75.21922169 

91.09585040 

106.92188567 

122.71723465 

138.49253142 

154.25398977 

170.00548971 

27.47433975 

44.41245452 

60.64103003 

76.64417598 

92.54363161 

108.38626251 

124.19423664 

139.97946755 

155.74894981 

171.50706779 

28.69427122 

45.74023678 

62.02393848 

78.06138542 

93.98440448 

109.84426916 

125.66541401 

141.46104582 

157.23895364 

173.00403778 

29.90659108 

47.05946240 

63.39877760 

79.47121293 

95.41845289 


44.97752625 
61.04628851 
76.96196660 
92.80560044 
108.60932625 
124.38856609 
140.15167724 
155.90359227 
171 . 64741409 
29.72897817 
46.33777210 
62.45452600 
78.40011274 
94.26426915 
110.08298013 
125.87365369 
141.64578078 
157.40498996 
173.15483560 
30.98739433 
47.68825285 
63.85388583 
79.83029598 
95.71577527 
111.55014879 
127.35282750 
143.13445532 
158.90137331 
174.65760064 
32.23696941 
49.02963506 
65.24486077 
81 . 25288898 
97.16040861 
113.01106338 
128 . 82627588 
144.61785714 
160 . 39287403 
176.15582166 
33.47844849 
50.36251400 
66 . 62790029 
82.66823660 
98 . 59844022 


31 


101.77598720 
117.63421073 
133.45636709 
149.25411956 
165.03457024 
18.06326499 
38.21205723 
54.98150733 
71.23178116 
87.27472076 
103.21153453 
119.08621866 
134.92123395 
160.72931686 
166.51825242 
19.10446224 
39.46276685 
56.31119165 
72.60788756 
88.68188756 
104.64107123 
120.53267893 
136.38096300 
152.19973708 
167.99747522 
20 . 14408270 
40.70679543 
57.63383980 
73.97727786 
90.08279749 
106.06481235 
121.57376881 
137.83570260 
153.66550603 
169.47234655 
21.18226963 
41 . 94458620 
58.94983212 
75.34025903 
91.47769848 
107.48296063 
123.40965647 
139.28559418 
155.12674413 


104.95132204 
120.80106350 
136.61759421 
152.41141945 
168.18901794 
23.26426978 
41.64330585 
58.25725555 
74.45234013 
90.46869112 
106.39052128 
122.25588944 
138.08470332 
153.88844422 
169.67421863 
24.38191370 
42.91415216 
59.59800556 
75 . 83659590 
91.88089261 
107.82380672 
123.70525388 
139.54675051 
155.36075869 
171.15501884 
25.49655871 
44.17812771 
60.93175771 
77.21222318 
93.28693128 
109.25138502 
125.14932768 
141.00387919 
156.82848475 
172.63152339 
26.60553392 
45.43566830 
62.25887691 
78.58251593 
94.68704502 
110.67346123 
126.58827313 
142.45622617 
158.29173920 


108.12464607 
123.96661091 
139.77792626 
156.56807718 
171.34298952 
27.34738651 
45.02642621 
61.51791396 
77.66612622 
93.66900642 
109.56730178 
125.42412303 
141.24718298 
157.04686045 
172.82965642 
28.51136068 
46.31376949 
62.86870984 
79.05600992 
95.07593614 
111.00413944 
126.87626768 
142.71146276 
158.52099853 
174.31198034 
29.67014737 
47.59513048 
64.21256287 
80.43935593 
96.48679650 
112.43535674 
128.32317965 
144.17087326 
159.99060959 
175.79006310 
30.82414780 
48.86993352 
66.54982274 
81.81644575 
97.89181585 
113.86114149 
129.76504562 
146 . 62557693 
161.45580693 


111.29613289 
127.13095242 
142.93742061 
158.72413163 
174.49651104 
31.11194494 
48.37069283 
64.76598076 
80.87399440 
96.84604234 
112.74206794 
128.59102801 
144.40873909 
160.20460821 
175 . 98459455 
32.31089394 
49.67443171 
66.12594446 
82.27004135 
98.26742155 
114.18227656 
130.04580806 
145.87514173 
161.68050318 
177.46839118 
33 . 50392932 
50.97113292 
67 . 47903264 
83.65964336 
99.68282391 
115.61694991 
131.49545161 
147.33676268 
163.15193105 
178.94799989 
34.69148395 
52.26120709 
68.82558023 
85.04307016 
101.09246876 
117.04626891 
132.94010999 
148.79373022 
164.61900179 


114.46594181 
130.29417754 
146.09613529 
161.87961824 
177.64960672 
34.71247959 
51.68742381 
68.00341570 
84.07665874 
100.03012405 
115.91498982 
131.75670219 
147.56943199 
163.36172678 
179.13905971 
35.93963034 
53.00484590 
69.37178453 
85.47845278 
101.45569839 
117.35840186 
133.21401118 
149.03788313 
164.83931554 
180.62428058 
37 . 16040124 
54.31521595 
70.73335426 
86.87389573 
102.87538721 
118.79636197 
134.66625806 
150.50161857 
166.31249570 
182.10536555 
38.37523617 
55.61892969 
72.08844556 
88.26324612 
104.28940132 
120.22904452 
136.11358910 
151.96076258 
167.78137405 
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170.94297014  174.10383307  177.26400267  180.423S1S94  183.58240728 
22.21914648  27.71212684  31.97371522  35.87394150  39.58453089 

43.17653646  46.68716642  50.13856248  53.54502718  56.91634787 
60.25951651  63.57969798  66.88081125  70.16589626  73.43735505 

76.69711577  79.94674733  83.18754160  86.42057347  89.64674668 

92.86682276  96.08146700  99.29120879  102.49656256  106.69793942 

108.89570741  112.09018972  115.28167140  118.47040496  121.65661491 
124.84050162  128.02224448  131.20200466  134.37992735  137.55614375 
140.73077270  143.90392215  147.07569037  150.24616703  153.41543413 
156.58356680  159.76063402  162.91669926  166.08182098  169.24605316 
172.40944670  176.57204480  178.73389334  181.89503109  185.05549510 
PARAMETER  Z  IM  FORMULA  FOR  LARGE  I:  (Z(I) ,1=1 ,76)  FOR  0 . 0<-ZETA<7 . 5 
PARAMETER  Z  II  FORMULA  FOR  LARGE  I;  (Z(I),I=77,96)  FOR  0.00<XI<0.38 
1000000000.  1081258212.  1166283624.  1255057958.  1347557490. 

1443753879.  1543614917.  1647105219.  1754186836.  1864819802. 

1978962618.  2096572665.  2217606570.  2342020514.  2469770499. 

2600812563.  2735102973.  2872598376.  3013255919.  3157033362. 

3303889146.  3453782466.  3606673313.  3762522511.  3921291740. 

4082943554.  4247441386.  4414749549.  4584833234.  4757658503. 

4933192274.  5111402309.  5292257200.  5475726346.  5661779940. 

5850388945.  6041525074.  6235160771.  6431269189.  6629824168. 

6830800216.  7034172486.  7239916758.  7448009419.  7658427441. 

7871148366.  8086150282.  8303411811.  8522912087.  8744630743. 

8968547891.  9194644107.  9422900419.  9653298289.  9885819599. 

10120446637.  10357162089.  10595949017.  10836790856.  11079671396. 
11324574773.  11571485459.  11820388250.  12071268256.  12324110892. 
12578901868.  12835627181.  13094273105.  13354826183.  13617273222. 
13881601278.  14147797657.  14415849903.  14685745791.  14957473322. 
15231020716.  1570796327.  1570790327.  1570748334.  1570634409. 

1570412789.  1570048089.  1569605577.  1668761627.  1567763626. 

1566481429.  1664906856.  1563004678.  1560753018.  1558133782. 

1555133056.  1651741393.  1647964010.  1543770858.  1539196572. 

1534240288. 

SECOND  DIFFERENCES  FOR  Z:  (ZD2(I) ,1=1,96) 

3780492.  3768362.  3749920.  3726047.  3697565. 

3665231.  3629733.  3591683.  3551630.  3510052. 

3467368.  3423938.  3380072.  3336031.  3292037. 

3248275.  3204898.  3162030.  3119771.  3078203. 

3037388.  2997373.  2958193.  2919871.  2882423. 

2845855.  2810170.  2775363.  2741425.  2708346. 

2676112.  2644706.  2614110.  2584306.  2555273. 

2526990.  2499438.  2472594.  2446438.  2420950. 

2396107.  2371891.  2348281.  2325257.  2302801. 

2280894.  2259518.  2238656.  2218291.  2198406. 
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2178986.  2160016.  2141480.  2123366.  2105657. 
2088342.  2071409.  2064846.  2038637.  2022776. 
2007249.  1992047.  1977159.  1962676.  1948288. 
1934286.  1920662.  1907107.  1893913.  1880973. 
1868279.  1856824.  1843601.  1831603.  1819824. 
1808258.  1.  -36000.  -71961.  -107761. 
-143199.  -177994.  -211796.  -244196.  -274728. 
-302904.  -328219.  -360184.  -368346.  -382318. 
-391799.  -396696.  -396636.  -391968.  -382776. 
-369366. 

FOURTH  DIFFEREICES  FOR  Z:  (ZD4(I) ,1=1,96) 


-7. 

-6. 

-5.-5. 

-4. 

-3. 

-3. 

-2.-2. 

-1. 

-1. 

0. 

0. 

0. 

0. 

0. 

1. 

1. 

1. 

1. 

1. 

1. 

1.  1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

o 

O 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

1. 

1. 

2, 

2. 

3. 

3. 

4. 

4. 

5. 

5. 

4. 

5. 

5. 

5. 

4. 

PARAMETER 

PI  II 

FORMUU 

FOR  LARGE 

;  I:  (P1(I) 

142857. 

142398. 

141553. 

140368. 

138884. 

137145. 

135189. 

133053. 

130770. 

128371 . 

125883. 

123329. 

120731. 

118107. 

115474. 

112844. 

110229. 

107640. 

105084. 

102567. 

100095. 

97672. 

95302. 

92986. 

90728 . 

88527. 

86384. 

84300 . 

82274. 

80307. 

78397. 

76543. 

74745 . 

73001. 

71310. 

89671. 

68082. 

66542. 

65050. 

63604. 

62202. 

60843. 

59627. 

58250. 

5roi3. 

55814. 

54651. 

53523. 

52429. 

51367. 

50338. 

49338. 

48368 . 

47427 . 

46513. 

45625. 

44762. 

43924. 

43110. 

42319. 
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41550. 

40802. 

40074. 

39366. 

38678. 

38008. 

37355 . 

36720. 

36102. 

35499. 

34913. 

34341 . 

33784. 

33241. 

32711. 

32195. 

0. 

7. 

53. 

180. 

426. 

829. 

1427. 

2254. 

3341. 

4714. 

6395. 

8398. 

10732. 

13395. 

16380. 

35350. 

19671 

23246. 

27074. 

31122. 

SECOHD  DIFFEREICES  FOR  PARAMETER  PI:  (P1D2(I). 


-429. 

-385. 

-341. 

-297. 

-266. 

-216. 

-180. 

-146. 

-116. 

-89. 

-65. 

-44. 

-25. 

-9. 

4. 

16. 

25. 

33. 

40. 

45. 

49. 

53. 

55. 

67. 

58. 

58. 

59. 

59. 

58. 

67. 

57. 

56. 

54. 

53. 

52. 

50. 

49. 

48. 

46. 

45. 

43. 

42. 

40. 

39. 

38. 

36. 

36. 

34. 

33. 

32. 

30. 

29. 

28. 

27. 

26. 

25. 

25. 

24. 

23. 

22. 

21. 

21. 

20. 

19. 

18. 

18. 

17. 

17. 

16. 

16. 

15. 

15. 

14. 

14. 

13. 

13. 

0. 

40. 

80. 

119. 

158. 

195. 

230. 

261. 

287. 

309. 

324. 

331. 

331. 

323. 

308. 

285. 

255. 

220. 

181. 

139. 

PARAMETER  P2  II 

FQRMUU  FOR  LARGE  I:  (P2(I) 

-119.- 

-113. 

-108.' 

-102. 

-96. 

-90. 

-84. 

-78. 

-73. 

-67. 

-62. 

-57. 

-53. 

-49. 

-46. 

-41. 

-38. 

-35. 

-32. 

-30. 

-27. 

-25. 

-23. 

-21. 

-20. 

-18. 

-17. 

-15. 

-14. 

-13. 

-12. 

-11. 

-10. 

-10. 

-9. 

-8. 

-8. 

-7. 

-7. 

-6. 

-6. 

-5. 

-5. 

-6. 

-4. 

-4. 

-4. 

-4. 

-3. 

-3. 

-3. 

-3. 

-3. 

-2. 

-2. 

-2. 

-2. 

-2. 

-2. 

-2. 

-2. 

-2. 

-1. 

-1. 

-1. 

-1. 

-1. 

-1. 

-1. 

-1. 

1=1,96) 


1.76) 
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-1. 


-1. 


-1. 


-1 


-1. 

-1. 

PARAMETER  Ql  II  FORMUU  FOR  LARGE  I:  (Q1(I).  1=1,97) 
-1269921. - 1298628 . - 1334723 .-1368192. -1399064 . 
-1427366. -1463166. -1476673.-1497676 . -1616683 . 
-1633413 . - 1633413 . -1407630 . -1301097 . -1209716 . 


-1130246.-1060379. 

-998386. 

-942938. 

-892999. 

-847749.  -806630. 

-768803.  -734130. 

-702142. 

-672632.  -646039. 

-619441. 

-596648. 

-673193. 

-662234.  -632646. 

-514015. 

-496546. 

-480061 . 

-464464.  -449686. 

-436682. 

-422389. 

-409756. 

-397736.  -386287. 

-375372.  -364956. 

-365008. 

-346499.  -336400. 

-327689. 

-319341. 

-311337. 

-303667.  -296282. 

-289195. 

-282382. 

-275828. 

-269619.  -263443. 

-257588. 

-261942. 

-246496. 

-241240.  -236164. 

-231261. 

-226622. 

-221940. 

-217608.  -213218. 

-209065 . 

-205043. 

-201146. 

-197368.  -193706. 

-190152.  -186704. 

-183368. 

-180108.  -176962 

0. 

-33. 

-67. 

-899.  -2130. 

-4163. 

-7161. 

-11336. 

-16848.  -23860. 

-32614. 

-42931 . 

-55212. 

-69432.  -85641. 

-170434.  -196434. 

-103861.  -124088. 

-146296. 

SECOND  DIFFERENCES  FOR  PARAMETER  Ql:  (qiD2(I),  1=1,97) 


2569. 

2620. 

2632. 

2612. 

2564. 

2494. 

2407. 

2306. 

2195. 

2079. 

1959. 

-25249. 

-19107. 

-14831. 

-11763. 

-9502 . 

-7800. 

-6492. 

-5471. 

-4660 . 

-4008. 

-3477 . 

-3039. 

-2675. 

-2369. 

-2110. 

-1889. 

-1699. 

-1536. 

-1392. 

-1267. 

-1157. 

-1059. 

-973. 

-896. 

-827. 

-765. 

-709. 

-668. 

-613. 

-571. 

-533. 

-499. 

-467. 

-438. 

-411. 

-386. 

-364. 

-343. 

-323. 

-305. 

-289. 

-273. 

-259. 

-246. 

-233. 

-221. 

-210. 

-199. 

-190. 

-181. 

-172. 

-164. 

-157. 

-150. 

-143. 

-137. 

-131. 

-125. 

-120. 

-115. 

-110. 

-105. 

-101. 

-97. 

-93. 

-90. 

0. 

-200. 

-400. 

-598. 

-794. 

-986. 

-1169. 

-1342. 

-1502. 

-1645. 

-1768. 

-1868. 

-1944. 

-1993. 

-2016. 

-2012. 

-1984. 

-1934. 

-1865. 

-1780. 
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FOURTH  DIFFEREICES  FOR  PARAMETER  Ql:  (qiD4(I),  1=1,17) 

0.  0.  0.  0.  0. 

0.  0.  0.  0.  0. 


0.-3.-2.-1.-1. 

-1.  0. 

PARAMETER  Q2  II  FORMULA  FOR  LARGE  I:  (q2(I).  1=1, SO) 


-10000. 

-9885. 

-9749. 

-9590. 

-9409 

-9205. 

-8979. 

-8734. 

-8471 . 

-8193. 

-7903. 

-790. 

-571. 

-422. 

-318. 

-243. 

-189. 

-148. 

-117. 

-93. 

-75. 

-61. 

-SO. 

-41. 

-33. 

-28. 

-23. 

-19. 

-16. 

-13. 

-11. 

-9. 

-8. 

-7, 

-6. 

-5. 

-4. 

-3. 

-3. 

-2. 

-2. 

-2. 

-1. 

-1. 

-1. 

-1. 

-1. 

-1. 

^1. 

0. 

SECOID  DIFFEREICES  FOR  PARAMETER  q2:  (q2D2(I),  1=1,30) 
18.  21.  22.  23.  23. 

22.  20.  18.  IS.  12. 


9.-108.  -67.  -43.  -29. 

-19.  -14.  -10.  -7.  -S. 

-4.  -3.  -2.  -2.  -1. 

-1.  -1.  -1,  -1.  0. 

PARAMETER  03  II  FORMUU  FOR  LARGE  I:  (03(1),  1=1,11) 

-159 . -1S6 . -1S2 . -148 . -144 . 

-140.-137.-135.-133.-133. 

-135. 

lEGATIVE  ZEROS  OF  THE  AIRY  FUICTIOI:  (A(S),  S=l,50) 

-2.33810741  -4.08794944  -5.52055983  -6.78670809  -7.94413359 
-9 . 02265085-10 . 040 17434- 1 1 . 00852430-1 1 . 93601556-12 . 82877675 
-13 . 69148904-14 . 52782995-15.34075514-16 . 13268516-16 . 90563400 
-17 . 66130011-18 . 40113260-19.12638047-19 . 83812989-20 . 53733291 
-21 . 22482994-21 .90136760-22.56761292-23 . 22416500-23 . 87156446 
-24 .51030124-25 . 14082117-25.76353140-26 . 37880505-26 . 98698511 
-27 . 58838781-28 . 18330550-28 . 77200917-29 . 35475056-29 . 93176412 
-30 . 50326861-31 . 06946859-31 . 63055566-32 . 18670965-32 . 73809961 
-33 . 28488468-33 . 82721495-34 . 36523213-34 . 89907025-35 . 42885619 
-35 . 95471026-36 . 47674664-36 . 99507385-37 . 50979509-38 . 02100868 
lEGATIVE  ZEROS  OF  THE  DERIVATIVE  OF  THE  AIRY  FUICTIOI:  (AP(S), 
-1.01879297  -3.24819758  -4.82009921  -6.16330736  -7.37217726 
-8 . 48848673  -9 . 53544905-10 . 52766040-11 .47505663-12.38478837 
-13 . 26221896-14 . 11150197-14.93593720-15 . 73820137-16 . 52050383 
-17 . 28469505-18 . 03234462-18.76479844-19.48322166-20 . 18863151 
-20 . 88192276-21 . 56388772-22.23523229-22 . 89658874-23 . 54852630 


S=l,50) 
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-24 . 19155971-24 . 82615643-25 . 45274256-26 . 07170794-26 . 68341033 
-27 . 28817912-27 . 88631841-28.47810968-29 . 06381416-29 . 64367481 
-30 . 21791812-30 . 78675565-31 . 35038538-31 . 90899296-32 . 46275275 
-33 .01182878-33 . 55637561-34.09653909-34.63245705-35 . 16425990 
-35 . 69207120-36 . 21600815-36 . 73618208-37 . 26269882-37 . 76665910 


2.2  The  Output  Data 


The  output  data  consist  of  the  input  data,  some  intermediate  output  data, 
and  the  final  output  data.  The  input  data  were  described  in  Sections  2.1.1 
and  2.1.2.  One  must  read  parts  of  Chapter  3  in  order  to  interpret  the  in¬ 
termediate  output  data.  The  me<ining  of  the  intermediate  output  data  is 
evident  from  the  description  of  the  main  program  in  Chapter  3.  The  final 
output  data  are  described  in  Section  2.2.1. 


2.2.1  Description  of  the  Final  Output  Data 

The  final  output  data  consist  of  E3A1PS(J),  E3A1ZS(K),  E3A2PS(J), 
E3A2ZS(K),  BKAPLT(I),  PTRAN(I),  and  PREFL(I)  where  {J  =  1,2,---, 
NPHI},  {K  =  1,2,---,NZ},  and  {I  =  1,2,---,KAM}.  The  E3A’s  are  writ¬ 
ten  at  the  end  of  DO  loop  48.  The  variables  BKAPLT,  PTRAN,  and  PREFL 
are  written  at  the  end  of  the  main  program. 

The  E3A’s  are  the  magnitudes  of  the  <j>-  and  z-components  of  the  nor¬ 
malized  electric  field  cilong  each  of  the  two  center  lines  in  each  of  the  two 
apertures.  The  E3A’s  are,  as  explained  in  the  leist  paragraph  of  Section  2.1.1, 
written  out  only  at  those  values  of  KA  for  which  there  is  an  integer  J  such 
that 


KE3(J)  =  KA. 


(2.58) 
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The  E3A’s  are  defined  by 


E3A1PS(J)  = 

(2.59) 

E3A1ZS(J)  = 

(2.60) 

E3A2PS(J)  = 

1  Inns 

(2.61) 

E3A2ZS(J)  = 

mis 

(2.62) 

Here,  is  the  (^component  of  the  electric  field  at  {<f>,z)  — 

in  the  left-hand  aperture,  and  is  the  z-component 

of  the  electric  field  at  {4>,z)  =  (ir,  in  the  left-hand  aperture.  The  coor¬ 
dinates  4>  and  z  are  shown  in  Fig.  2.  Now, 

=  tt  -I-  ^-1+  <i>o  (2.63) 

25'"=  (-l+2j^^)j.  (2.64) 

Moreover,  is  the  (^component  of  the  electric  field  at  (<^,2)  = 

in  the  right-hand  aperture,  and  4‘") «  the  ^-component 

of  the  electric  field  at  (<^,  z)  =  (0,  in  the  right-hand  aperture.  Here, 

(-1  +2j^pjjl_  1)  <i>0  (2.65) 

and  z^^'*  is  given  by  (2.64).  In  (2.59)-(2.62),  is  the  square  root 

of  the  average  value  of  the  square  of  the  magnitude  of  the  tangential  electric 
field  of  the  z-traveling  TMo^  wave  taken  over  one  of  the  apertures.^ 

^This  average  value  is  the  same  over  both  apertures.  The  z-traveling  TMo|  wave  is  the 
incident  wave  in  the  circular  waveguide. 
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The  quantity  PTRAN(I)  is  the  ratio  of  the  time-average  pK>wer  trans¬ 
mitted  into  the  rectangular  waveguides  to  the  time-average  power  of  the 
z-traveling  TM^i  wave  in  the  circular  waveguide  when 

ka  =  BKAPLT(I)  (2.66) 

where 

BKAPLT(I)  =  BKAO  -I-  (I  -  1)  ♦  DBKA.  (2.67) 

Similarly,  PREFL(I)  is  the  ratio  of  the  time-average  power  reflected  in  the 
circular  waveguide  to  the  time- average  power  of  the  z- traveling  TMqi  wave 
in  the  circular  waveguide  when  ka  is  given  by  (2.66).  Because  the  medium 
in  the  waveguides  is  assumed  to  be  lossless, 

PTRAN(I)  +  PREFL(I)  =  1.  (2.68) 

2.2.2  Sample  Output  Data 

When  the  computer  program  was  run  with  the  input  data  listed  in  Section 
2.1.3,  the  output  data  listed  below  were  written  in  the  file  OUT. DAT  by 
statements  in  the  main  program. 

Listing  of  the  sample  output  data  written  in  the  file  OUT. DAT 
by  statements  in  the  main  program 

B,C,L1.L2.L3,BKN,XM.ZL1.ZL2 

O.llOOOOOD+Ol  O.SOOOOOOD-t-OO  0.4000000D+02  0.40000000-^02 
0.18386940-^01  0.  lS000000-«-02  0.40000000-^02  0.10000000-^01 

o.oooooooo-i-00  o.iooooooo-i-oi  o.oooooooD-«-oo 

XANs  1,  BKA0=  0.29500000-»-01.  0BRA=  0 . 00000000-«-00 

KE3M=  1.  HPHI=  81,  IZ=  21 

KE3 

1 

5  5  2 

KTM=  5,  KTE=  11.  Kl=  16 

BKB=  0.3245000E-)-01 

YREC 

0.4727867E-t-00  0 . OOOOOOOE-KOO  0 . 3704829E-^00  0 . 0000000E-*-00 
0.2890127E-^00  0 . OOOOOOOE-t-00  0 . 2322885E-t-00  0 . 0000000E-*-00 
0.2351603E-»-00  0 . OOOOOOOE-t-00  0 . 00O00OOE-*-00-0 . 2504353E-^00 
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-0 . 1658050E-)-01  0 .  OOOOOOOE-HOO-0 . 2726819E-I-01  0 .  OOOOOOOE-t-00 
-0.3741192E-»-01  0 .  OOOOOOOE+00-0 . 1880544E+01  0 .  OOOOOOOE-t-00 
-0.2116119E+01  0.00000O0E-t'00-0.289918OE+Ol  0 . OOOOOOOE-t-OO 
-0.3460056E^01  0 . 0000000E*00-0 . 4304992E^01  0 . OOOOOOOE-f  00 
-0.4140747E-^01  O.OOOOOOOE>00-0.42S2419E-t-01  0 .  OOOOOOOE-t-00 
0.4727867E4-00  0 . OOOOOOOE+00  0 . 3704829E-I-00  0 . OOOOOOOE+00 
0.2890127E-)-00  . OOOOOOOE-i-00  0 . 232288SE-t-00  0 . OOOOOOOE-i-00 

0.23S1603E+00  0 . OOOOOOOE-t-00  0 . 0000000E-»^00-0 . 2S04363E-t-00 
-0 . 16S8050E+01  0 .  OOOOOOOE+OO-0 . 2726819B+01  0 .  OOOOOOOE-t-00 
-0 . 3741 192E>0 1  0 .  OOOOOOOE-i-00-0 . 1880644E-t-01  0 .  OOOOOOOE-i-00 
-0.2115119E't-01  0.0000000E4-00-0.2699180E4-01  0 .  OOOOOOOE-t-00 
-0.3460056E+01  0 .  OOCOGOOE+OO-0 . 4304992E4-01  0 . 0000000E-«-00 
-0.4140747E>01  0 .  OOOOOOOE-«-00-0 . 4252419E-I-01  0 .  OOOOOOOE-fOO 
TI 

O.OOOOOOOE^OO  0.8683748E-08  0 . OOOOOOOE^OO  0 . OOOOOOOE-i-00 
O.OOOOOOOE^OO  0.1880288E-08  0 . OOOOOOOE+00  0 . OOOOOOOE-t-00 
O.OOOOOOOE>00-0.200964SE-Ol  0 . OOOOOOOE-t-00  0 . 77370S3E-f 00 
O.OOOOOOOE^OO  0 . 0000000E-)>00  O.OOOOOOOE-t^OO  0.2679018E-i-00 
O.OOOOOOOE+OO  O.'^OOOOOOE-t-OO  0 . OOOOOOOE+00  0 . OOOOOOOE+OO 
O.OOOOOOOE+OO  0.39471S8E-08  0 . OOOOOOOE-^OO  0 . OOOOOOOE-i-00 
O.OOOOOOOE+OO  0,2S64029E-08  0 . OOOOOOOE+00  0 . OOOOOOOE+00 
0 .  OOOOOOOE-t-00  0 .  OOOOOOOE-t-00  0 .  OOOOOOOE*00-0 . 4B67374E-02 
O.OOOOOOOE-t-00  0 . 8683748E-08  0 . OOOOOOOE-i-00  0 . OOOOOOOE-i>00 
O.OOOOOOOE-t-00  0.1880288E-08  0 . OOOOOOOE-^00  0 . 0000000E-)-00 
0.000O0OOE+0O-O.20O964SE-01  O.OOOOOOOE+OO  0 . 7737053E+00 
O.OOOOOOOE+OO  O.OOOOOOOE+OO  O.OOOOOOOE+OO  0.2579018E+00 
O.OOOOOOOE+OO  O.OOOOOOOE+OO  O.OOOOOOOE+OO  O.OOOOOOOE+OO 
O.OOOOOOOE+OO  0.39471S8E-08  O.OOOOOOOE+OO  O.OOOOOOOE+OO 
O.OOOOOOOE+OO  0 . 2564029E-08  O.OOOOOOOE+OO  O.OOOOOOOE+OO 
O.OOOOOOOE+OO  O.OOOOOOOE+OO  O.OOOOOOOE+00-0.4667374E-02 
V 

-0.670014SE-01-0.6189583E-02  0.45S5167E-16-0. 1384864E-17 
-0.2633363E-01-0.2438369E-02  0.736808SE-16  0.3S95178E-17 
-0 . 1930133E+00-0 . 3291 131E-01-0 . 9979596E+00-0. 8676731E-01 
-0 . 560243 IE- 17-0 . 9498243E-18-0 . 3494251E-01-0 . 2162649E-01 
-0 . 7301090E- 18-0 . 209S366E- 18-0 . 3495097E-17  0 . 1 135324E- 16 
0 . 1 183619E-0 10.1 109780E-02-0 . 1387413E-16-0 . 665S160E- 18 
0 . 3481302E-02  0 . 323S679E-03-0 . 1050499E-i6-0 . 5683518E-18 
-0 . 2474749E-16-0 . 3544028E-17-0 . 3542653E-01-0 . 2S82735E-02 
-0 . 6700 14SE-0 1 -0.61 89S89E-02  0.45551 65E-16-0 . 1384874E- 17 
-0.2633362E-01-0.2438373E-02  0 . 7368087E-16  0.3595155E-17 
-0 . 1930133E+00-0 . 3291 131E-01-0 . 9979594E+00-0 . 8676729E-01 
-0 . 5602437E-17-0 .9498248E-18-0 . 3494251E-01-0 . 2162649E-01 
-0 . 7301 109E-18-0 .2095369E-18-0 . 3495087E-17  0 . 1135325E-16 
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0. 1183619E-01  0. 1109779E-02-0. 1387413E-16-0.6655197E-18 
0.3481302E-02  0.3235681E-03-0. 1050499E-16-0.5683519E-18 
-0 . 2474748E- 16-0 .3S44027E- 17-0 . 3642663E-01-0 . 2S82736E-02 
C10UTs-0.6S62232E-»-00-0.570S513E-01.  C1II»  0 . OOOOOOOE-^00  0 . 0000000E-»^00 
C20UTS-0. 666223 lE-»^00-0. 67056 12E-01.  C2II=  0 . OOOOOOOE-i-OO  0 . OOOOOOOE+00 
CTNEs  0.3417063E4-00  0 . 1243766E-»-00 .  CTEE»  0. 1263118E-16  0. 1798084E-21 
CTE0»  0.3527384E-07  0.4016329E-08 

ClOUTSs  0.4338841E4-00.  ClIISs  0 . OOOOOOOE^-OO ,  C201)TS=  0 . 4338840E+00 

C2I1SS  O.OOOOOOOE^OO.  PT=  0 . 8677682E-I-00 

CTMESa  0.1322318E-V00  ,CTMMS=  0. 1816642E>01 

CTEES*  0.1570306E-31  CTEOS®  0. 1260376E-14 

PR®  0 . 13223 18E-^00  .PRM®  0. 1815642E401 

PTOTAL®  O.lOOOOOOE+01 

PTl®  0.8677680E+00.  PRKA®  0 . 1816643E+01 

PHI2 

0,0000000E+00  0.3926991E-01  0.7863982E-01  0. 1178097E+00  0 . 1670796E+00 

0.1963495E>00  0.2366196E>00  0 . 2748893E4^00  0.3141693E-^00  0 . 3634292E-f00 

0.3926991E>00  0.431960QE+00  0 .4712389E-<-00  0 . 6106088E-f 00  0 . 6497787E400 

0.6890486E>00  0.6283185E>00  0 . 6675884E^00  0 . 7068683E4-00  0.7461283E-i^00 

0.7863982E>00  0 . 8246680E>00  0 . 8639380E-*^00  0 . 9032079E>00  0 . 9424778E-»^00 

0.9817477E+00  0. 1021018E+01  0. 1060287E+01  0. 1099667E+01  0. 1138827E+01 

0.1178097E+01  0.1217367E+01  0. 1266637E+01  0 . 1296907E+01  0.1336177B+01 

0.1374447E>01  0. 14137l7E-*-01  0. 1462987E'^01  0. 1492267E-*'01  0. 1631626E-*-01 

0.1570796E+01  0. 1610066E+01  0. 1649336E+01  0. 1688606E+01  0. 1727876E+01 

0.1767146E4'01  0. 1806416E-^01  0. 1845686E-I-01  0. 1884966E+01  0. 1924225E-I-01 

0.1963495E-)-01  0. 2002765E+01  0.2042035E1-01  0 . 20ri306E4-01  0.2120675E-^01 

0.2159845E+01  0.2199115E>01  0.2238385E*01  0. 2277666E-^01  0.2316925E-i-01 

0.2356194E-^01  0 . 2396464E+0  1  0.2434734E-^0  1  0.2474004E+01  0.2513274E-f01 

0.2552544E4^01  0.2591814E>01  0.2631084E^01  0.2670354E-^01  0.2709624E-i-01 

0.2748893E-»-01  0.2788163E-^01  0.2827433E^01  0.2866703E-^01  0.2906973E-^01 

0.2945243E>01  0 . 2984613E+01  0.302378364^01  0.3063063E4-01  0.3102323E4-01 

0.3141593E4-01 
Z 

O.OOOOOOOE4-00  0. 1570796E-»'00  0 . 3141593E400  0.4712389E400  0.6283185E4-00 
0.7853982E+00  0 . 9424778E+00  0. 1099557E+01  0. 1256637E+01  0. 1413717E+01 
0.1570796E+01  0 . 1727876E+01  0 . 1884966E+01  0 . 2042035E+01  0. 21991 15E+01 
0.2356194E401  0 . 2513274E>01  0.2670364E-»^01  0 . 2827433E4-01  0 . 29845 13E-*-01 
0.3141593E-)-01 
E3A1PS 

0.4837097E+00  0.4822135E+00  0 . 4777427E+00  0 . 4703507E+00  0.4601267E+00 
0.4471895E400  0 . 4316966E-400  0.4138279E400  0 . 3937970E4-00  0.3718386E4-00 
0.3482087E+00  0 . 3231825E+00  0 . 2970478E+00  0 . 2701041E+00  0 . 2426664E+00 
0.2150089E4-00  0 . 1874691E400  0 . 1603345E400  0 . 1338g33E-)-00  0 . 1084194E-i-00 
0.8416927E-01  0 . 6137794E-01  0.4025627E-01  0 . 2098808E-01  0 . 3727845E-02 
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0.1140163E-01 
0.5312867E-01 
0.4250704E-01 
0. 109990 lE-07 
0.4260703E-01 
0.531286SE-01 
0.1140160E-01 
0.8416927E-01 
0.2150088E-»^00 
0.3482088E-1-00 
0.4471894E-t-00 
0.4837097E-i-00 
E3A1ZS 

0.7626179E4-01 

0.5886560E-)-01 

0.4003272E-«-01 

0.S378818E-(-01 

0.6907912E+01 

E3A2PS 

0.4837097E-I-00 
0.4471894E+00 
0.3482088E-^00 
0.21S0088E+00 
0.8416928E-01 
0.1140168E-01 
0.5312863E-01 
0.42S0703E-01 
0. 109990 lE-07 
0,4250704E-01 
0.5312865E-01 
0.1140161E-01 
0.8416928E-01 
0.2150089E+00 
0.3482087E+00 
0.4471894E-»-00 
0.4837097E+00 
E3A2ZS 

0.7626177E+01 
o.sssessgE-t’Oi 
0.4003270E+01 
0.5378817E+01 
0. 690791  lE-t-Ol 
BKAPLT 

0.2950000E+01 


0.2430998E-01 

0.S4779S4E-01 

0.3S63496E-01 

0.9S99783E-02 

0.4806544E-01 

0.493202SE-01 

0.3727860E-02 

U.1084194E-t^00 

0.2426654E-t-00 

0.371838SE-t-00 

0.46012S7E>00 


0.7S41701E+01 
0.S339398E+01 
0.4026743E-t-01 
0. 584688  lE-t-01 


0.4822134E>00 
0.43169S6E>00 
0.3231825E-«-00 
0.1874691E-)-00 
0.6137797E-01 
0.2430994E-01 
0.5477951E-01 
0.3S63493E-01 
0.9599794E-02 
0.4806642E-01 
0.4932021E-01 
0.3727873E-02 
0 . 1084194E-«-00 
0.2426554E>00 
0.3718385E+00 
0.4601257E+00 


0.7541700E+01 

0.5339396E-)-01 

0.4026742E+01 

0.5846880E+01 


0.3494114E-01 

0.S438683E-01 

0.2768797E-01 

0.1892069E-01 

0.S209063E-01 

0.4327353E-01 

0.2098808E-01 

0.1338933E+00 

0.2701040E-^00 

0.3937971E-»00 

0.4703607E+00 


0.7296243E>01 

0.4836897E>01 

0.4203009E+01 

0.6273001E+01 


0,4777426E+00 
0.4138279E+00 
0.2970479E+00 
0.1603345E-^00 
0.402S628E-01 
0.3494107E-01 
0 . 5438676E-01 
0.2768795E-01 
0.1892070E-01 
0.S209064E-01 
0.4327348E-01 
0.2098811E-01 
0.1338933E-t-00 
0.2701041E+00 
0.3937970E+00 
0.4703607E+00 


0.7296242E+01 

0.4836895E^01 

0.4203007E+01 

0.6272999E^01 


0.4327350E-01 
0.5209066E-01 
0.1862070E-01 
0.2768796E-01 
0.5438679E-01 
0. 34941 lOE-01 
0.4025627E-01 
0.160334BE-t-00 
0.2970479E-i-00 
0.4138279E-»^00 
0.4777426E+00 


0.6912951E-t-01 

0.4424638E+01 

0.4511133E-)-01 

0.6613139E-^01 


0.4703507E-»^00 
0.3937971E+00 
0.2701040E+00 
0. 1338933E-)-00 
0. 20988 llE-01 
0.4327361E-01 
0.S209060E-01 
0.1892068E-01 
0.2768797E-01 
0.5438580E-01 
0. 34941 llE-01 
0.4025628E-01 
0.1603345E+00 
0.2970478E+00 
0.4138279E-)-00 
0.4777426E+00 


0.6912949E-^01 

0.4424636E-)-01 

0.4S11131E-)-01 

0.6613138E-t-01 


0.4932024E-01 

0.4806545E-01 

0.9S99797E-02 

0.3S63494E-01 

0.5477964E-01 

0.2430998E-01 

0.6137794E-01 

0.1874691E+00 

0.3231826E-t-00 

0.43169S6E-i-00 

0.482213SE-t-00 


0.6427896E-^01 

0.4138892E-)-01 

0.49l7455E-i-01 

0.6832278E-t-01 


0.4601257E4^00 
0.371838SE-^00 
0.242eSS4E-^00 
0.1084194E-f00 
0.3727888E-02 
0.4932023E-01 
0. 480654 lE-01 
0. 959978 lE-02 
0.366349^-01 
0.6477954E-01 
0.2430994E-01 
0.6137797E-01 
0.1874691E-t-00 
0.3231825E-^00 
0.4316956E-)-00 
0.4822134E-^00 


0.6427894E-»-01 

0.4138891E+01 

0.49l7453E-*-01 

0.6832277E+01 
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PTRAI 

0.8677682E+00 

PREFL 

0.1322318E-<-00 


Discussion  of  the  above  sample  output  data 

In  the  above  sample  output  data,  the  values  of  E3A2PS  should  be  the  same 
as  those  of  ESA  IPS,  and  the  values  of  E3A2ZS  should  be  the  same  as  those 
of  E3A1ZS.  The  occasional  differences  of  one  or  two  units  in  the  seventh 
significant  figure  are  due  to  roundoff  error. 

The  value  of  PTRAN(l)  in  the  sample  output  data  is  the  same  «is  that 
of  Pt  at  ka  =  2.95  in  Fig.  8,4  of  [2],  This  value  is  the  same  as  that  of  Pt  at 
Xa/A™  =  0.5  in  Fig.  8.6  of  [2]. 

To  see  if  BKM  =  15  and  aM  =  40  of  (2.52)  and  (2.53)  axe  large  enough 
to  give  accurate  results  for  the  time-average  transmitted  and  reflected  pow¬ 
ers  and  the  tangential  electric  field  in  the  apertures,  we  ran  the  computer 
program  with  the  input  data  changed  so  that  BKM  =  33  amd  XM  =  100. 
The  results  for  the  output  variables  E3A2PS,  E3A2ZS,  BKAPLT,  PTRAN 
and  PREFL  are  shown  below. 


E3A2PS 

0,6727S12E+00 
0.4342954E-)-00 
0.108323SE-^00 
0.8992325E-01 
0.1210977E+00 
0.1422S92E-01 
0.5564338E-02 
0.5807864E-01 
0.4981872E-08 
0.5807864E-01 
0. 556441 lE-02 
0.1422588E-01 
0.1210976E+00 
0.8992319E-01 
0.1083234E-«-00 
0.4342955E-)-00 
0.8727512E+00 
E3A2ZS 

0.88369885+01 

0.4820989E+01 

0.5250993E+01 


0.6614469E+00 
0.3550694E+00 
0,80468315-01 
0.1057121E+00 
0.1064339E+00 
0. 367630 lE-02 
0.8549457E-02 
0.5806428E-01 
0.2029661E-01 
0.5154727E-01 
0.1534297E-01 
0.3685847E-01 
0 . 1282370E+00 
0.7558020E-01 
0.1515096E+00 
0.5101028E+00 


0.8538660E+01 

0.4468800E+01 

0.5134759E+01 


0.62848415+00 
0.27824725+00 
0.67306185-01 
0.11919465+00 
0.85831255-01 
0.15009045-01 
0.24526785-01 
0.51168095-01 
0.38075645-01 
0.39695155-01 
0.18859625-01 
0.61689735-01 
0 . 12735675+00 
0.66746455-01 
0.20902955+00 
0.57661385+00 


0.77320395+01 

0.45155955+01 

0.48196595+01 


0.57661375+00 

0.20902955+00 

0.66746465-01 

0.12735675+00 

0.61689835-01 

0.18859625-01 

0.39695215-01 

0.38076765-01 

0.51168135-01 

0.24526655-01 

0.15009085-01 

0.85831255-01 

0.11919465+00 

0.67306185-01 

0.27824725+00 

0.62848425+00 


0.66511825+01 

0.48038455+01 

0.44754135+01 


0.51010275+00 
0.15150975+00 
0.75580265-01 
0.12823715+00 
0.36858395-01 
0.15342885-01 
0.51547265-01 
0.20296565-01 
0.58054225-01 
0.86493995-02 
0 . 36762745-02 
0 . 10643395+00 
0.10571195+00 
0.80468305-01 
0.35506945+00 
0.66144705+00 


0.55941665+01 

0.51127225+01 

0.43133345+01 
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0.4496948E-t-01  0.Sb64260E-*-01  0.S910643E-I-01  0.6808496E-f01  0. 74908948+0 1 

0.7745238E+01 

BKAPLT 

0.29S0000E+01 

PTRAl 

0.8663139E+00 

PREFL 

0.1336857E+00 

Note  that  the  above  values  of  E3A2PS  and  E3A2ZS  are  considerably  different 
from  those  computed  with  BKM  =  15  and  XM  =  40.  However,  the  above 
values  of  PTRAN  and  PREFL  are  quite  close  to  those  computed  with  BKM  = 
15  and  XM  =  40.^  We  surmise  that  the  values  of  PTRAN  and  PREFL  are 
accurate  but  that  the  values  of  E3A2PS  and  E3A2ZS  axe  not. 

The  curves  of  Figs.  8.7  to  8.13  of  [2]  axe  labeled  wrong.  These  curves  are 
plots  of  the  squares  of  the  indicated  normalized  aperture  fields  rather  than 
the  normalized  aperture  fields  themselves.  For  instance,  the  curve  of  Fig.  8.7a 
of  [2]  is  a  plot  of  rather  than  that  of 

The  curve  of  the  squares  of  the  values  of  E3A2PS  computed  with  BKA  =  33 
and  XM  =  100  coincides  with  the  curve  in  Fig.  8.10(a)  of  [2].  The  curve  of  the 
squares  of  the  values  of  E3A2ZS  computed  with  BKM  =  33  and  XM  =  100 
coincides  with  the  curve  in  Fig.  8.10(b)  of  [2]. 

Notice  that  the  values  of  at  (^,  z)  =  0)  2md  those 

of  at  (<^,z)  =  (0,  ±c/2)  increased  when  (BKM,XM)  was 

increased  from  (15,40)  to  (33, 100).  Theory  predicts  that  the  component  of 
electric  field  perpendicular  to  any  edge  of  the  aperture  becomes  infinite  as  this 
edge  is  approached  (see  Section  1.11.2  of  [5]).  Therefore,  the  computed  values 

of  l4'“’l/|£j“*'"U  Of  =  (±■^.,0)  and  those  of  at 

{<f>,  z)  =  (0,  dbc/2)  cannot  be  accurate;  they  would  probably  increase  more 
and  more  as  BKM  and  XM  were  made  larger  and  larger. 

Sample  output  written  in  the  file  BESOUT  by  statements  in  the 
subroutine  BESIN 

All  except  the  last  line  of  the  output  data  written  in  the  file  BESOUT  by 
statements  in  the  subroutine  BESIN  consist  of  data  that  were  read  in  by 

^Notice  that  the  sum  of  the  values  of  PTRAN  and  PREFL  computed  with  BKM  =  33 
and  XM  =  100  is  0.9999997  rather  that  1.0.  This  discrepancy  can  be  attributed  to  roundoff 
error  becuase  not  all  calculations  were  done  in  double  precision. 
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statements  in  the  subroutine  BES.  These  data  are  not  listed  in  the  present 
report.  They  were  written  out  merely  to  verify  that  the  subroutine  BESIN 
received  its  input  data  properly. 

The  last  line  of  the  output  data  written  in  the  file  BESOUT  by  statements 
in  the  subroutine  BESIN  is 
A(50) s-38 . 02100868 ,  iP (50) =-37 . 76666910 . 

In  the  above  line  of  output  data,  A(50)  is  the  computed  value  of  the  50‘** 
negative  root  of  the  Airy  function  Ai,  and  AP(50)  is  the  computed  value  of  the 
50***  negative  root  of  the  derivative  of  Ai.  Note  that  all  ten  significant  figures 
of  these  computed  values  are  exactly  the  same  as  those  of  the  tabulated 
values  in  the  listing  of  the  second  module  of  sample  input  data  in  Section 
2.1.3. 


2.3  Minimum  Allocations 


The  minimum  storage  space  that  must  be  allocated  to  some  arrays  in  the 
computer  program  depends  on  the  values  of  the  input  variables  B,  C,  BKM, 
KAM,  KE3M,  NPHI,  and  NZ. 

Minimum  allocations  in  the  main  program  are  given  by 

MM(NMAX),  BMN(KTE),  BMN2(KTE).  PHl(2*PMAX),  PH2(2*PMAX), 
PH3(2*PMAX),  PH4(2*PMAX),  D3(NHAX),  G4(NMAX) ,  DTM(NMAX) , 
DTE(NMAX),  E3A1P(NPHI),  E3A1Z(NZ) ,  E3A2P(NPHI) ,  E3A2Z(NZ), 
Y(K2*K2),  TI(K2),  V(K2) ,  CVTME(K2),  CVTEE(K2),  CVTE0(K2), 
YREC(K2),  GTM(NMAX),  GTE (UMAX) ,  TMP(NMAX),  TMM(NMAX) , 

TEP(NMAX),  TEM(NMAX),  DqTM(NMAX) ,  DQTE(NMAX),  PHIl(NPHI), 
PHI2(NPHI),  Z(NZ),  PTRAN(KAM),  PREFL(KAM) ,  BKAPLT(KAM), 
SINP(PMAX),  SINq(PMAX),  E3A1PS(NPHI) ,  E3A2PS(NPHI) , 

E3A1ZS(NZ),  E3A2ZS(NZ),  IPS(K2),  and  KE3(KE3M) . 


Here, 


NMAX  =  1  + 


the  maximum  value  of  n  such  that 
(n7r)(B/C)  <  BKM 


(2.69) 


KTE  =  -1  + 


the  number  of  combinations  of  nonnegative 
integers  m  and  n  such  that 

y(mir)2  +  (n7r(B/C))^  <  BKM 


(2.70) 
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Furthermore, 


PMAX  =  1  + 
Moreover, 


I 


the  maximum  value  of  p  such  that  ^ 


pTT  <  BKM 


/• 


K2  =  2  ♦  (KTM  +  KTE) 

where  KTE  is  given  by  (2.70)  and 

{the  number  of  combinations  of 
positive  integers  m  and  n  such  that 

yjimiry  -f  (n7r(B/C))^  <  BKM 
Minimum  allocations  in  the  subroutine  MODES  are  given  by 
MM(NMAX),  BMN(KTE),  and  BMN2(KTE). 


Minimum  allocations  in  the  subroutine  PHI  are  given  by 
PH1(2*PMAX),  PH2(2*PMAX),  PH3(2*PMAX),  and  PH4(2*PMAX) . 


(2.71) 


(2.72) 


(2.73) 


Minimum  allocations  in  the  subroutine  DGN  are  given  by 

D3(NMAX),  G4(NMAX),  D(NMAX) ,  CP(NMAX),  CM (UMAX) ,  DQ(NMAX), 
and  G(NMAX) . 

Minimum  allocations  in  the  subroutine  DECOMP  are  given  by 

UL(K2*K2),  SCL(K2),  and  IPS(K2) . 

Minimum  allocations  in  the  subroutine  SOLVE  are  given  by 

UL(K2*K2),  B(K2),  X(K2) ,  and  IPS(K2). 

A  blank  or  labeled  common  block  that  is  used  in  two  or  more  program  seg¬ 
ments  must  be  defined  exactly  the  same  in  each  of  these  program  segments. 1 
Therefore,  any  dimensioned  variable  in  a  common  block  that  is  used  in  two 

^Here,  a  program  segment  is  either  the  main  program  or  one  of  the  subprograms. 
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or  more  program  segments  must  have  the  .ame  allocation  in  each  of  these 
program  segments. 

The  computer  program  was  written  assuming  that 

:r;,200  >  XM  (2.74) 

where  x'x^^  is  che  200'*^  root  of  J{.  See  (2.11).  If  (2.74)  is  not  true,  then 
the  upper  limits  of  the  indices  of  DO  loops  14  and  15  in  the  subroutine  BES 
must  be  incre«ised  from  200  to  an  integer  I  at  least  so  large  that 

x[  i  >  XM.  (2.75) 

With  this  increzise,  {A(I)  and  AP(I)  for  I  =  201,202,-  •  •  ,1}  might  be  needed 
for  use  in  DO  loop  15  of  the  subroutine  BES.  These  additioneil  A’s  and  AP’s 
can  be  obtained  by  increasing  the  upper  limit  on  the  index  of  DO  loop  25 
in  the  subroutine  BESIN  from  200  to  I,  The  “200”  in  the  fifth  statement  in 
DO  loop  19  of  the  main  program  must  also  be  increased  to  I.  Accompanying 
minimum  allocations  are  given  by 

XJ(I)  and  XJP(I) 

in  the  main  program, 

A(I)  and  AP(I) 

in  the  subroutine  BESIN, 

A(I) .  AP(I),  XJ(I).  and  XJP(I) 

in  the  subroutine  BES, 

A(I)  and  AP(I) 

in  the  subroutine  INTERPOL,  and 
X(I) 

in  the  subroutine  DGN. 
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Chapter  3 

The  Main  Program 


Numerical  values  of  variables  in  [2]  are  stored  in  variables  in  the  main  pro¬ 
gram.  The  main  program  is  described  by  defining  important  computer  pro¬ 
gram  variables  in  terms  of  variables  in  [2]. 


3.1  Rectangular  Waveguide  Mode  Cutoff 
Wavenumbers 

After  input  data  is  read  from  the  file  IN. DAT  and  written  in  the  file 
OUT. DAT,  computer  program  variables  PI,  BC,  PC,  and  BKM2  are  defined 

clS^ 


PI  =  T 

(3.1) 

BC  =  b/c 

(3.2) 

PC  =  irb/c 

(3.3) 

BKM2  =  (BKM)l 

(3.4) 

The  statement  “CALL  MODES”^  uses  PI,  PC,  and  BKM2  to  calculate 


BMN2(MTE)  =  { 


m  =  0,l,2,- 
n  =  0,l,2,-- 
n  -f-  m  ^  0 


• ,  MM(n  -|-  1)  —  1 
,NMAX-  1 


^See  the  listing  of  the  main  program  in  Section  3.11. 

*See  Chapter  4  for  a  description  and  a  listing  of  the  subroutine  MODES. 


(3.5) 
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where 


MTE  =  m  +  ^ 


f  0,  n  =  0 

n>0. 


/=i 


(3.6) 


According  to  ei^.  (2.4)  of  [2], 

{kmnby  =  (mr)^  +  •  (3.7) 

The  upper  bounds  {MM(/),  /  =  1,2, •  •  •  ,NMAX}  on  m  +  1  and  the  upper 
bound  NMAX  on  n  +  1  in  (3.5)  are  chosen  to  limit  the  values  of  m  and  n 
exactly  the  same  as  they  are  limited  by  the  constraint 

(fcmnfe)^  <BKM2.  (3.8) 

The  statement  “CALL  MODES”  also  performs  the  following  operations.  It 

makes  available  to  the  main  program  the  values  of  NMAX  and  {MM(I),  /  = 
1, 2,  •  •  • ,  NMAX}  in  (3.5).  It  sets 

BMN(MTE)  =  k„,nb  (3.9) 

where  MTE,  m,  and  n  are  the  same  as  in  (3.5).  It  sets  KTE  equal  to  the 

number  of  TE  rectangular  waveguide  modes  for  which  (3.8)  holds. ^  It  sets 
KTM  equal  to  the  number  of  TM  rectangular  waveguide  modes  for  which 
(3.8)  holds.  Here,  KTE  and  KTM  are  given  by  (4.13)  and  (4.14),  respectively. 

The  statement  following  statement  102  sets  K1  equal  to  the  total  number 
of  TE  and  TM  rectangular  waveguide  modes  for  which  (3.8)  holds: 

K1=KTM  +  KTE.  (3.10) 

The  four  statements  preceding  statement  115  terminate  execution  if  BKM  is 
so  small  that  there  is  no  value  of  (kmnb)^  that  satisfies  (3.8). 

3.2  The  Parameter  ka 


The  waveguide  mode  converter  problem  is  solved  for 

ltd  =  BKAO  +  (KA  -  1)  *  DBKA  (3.11) 

^Here,  KTE  is  the  maximum  of  the  values  of  MTE  in  (3.5). 
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inside  DO  loop  48.  Before  entry  into  DO  loop  48,  statement  115  puts  in 
the  common  block  labeled  BESIN  data  that  will  be  used  by  the  subroutine 
BES  to  calculate  roots  of  Bessel  functions  and  roots  of  derivatives  of  Bessel 
functions.  The  three  statements  following  statement  115  set 

PI2  =  Ik  (3.12) 

PIBC  =  —  (3.13) 

c 

PI5  =  I .  (3.14) 

The  variable  KAE,  which  is  set  to  1  before  entry  into  DO  loop  48,  appears 
in  the  list  of  FORTRAN  statements  before  (2.36). 

The  first  two  statements  in  DO  loop  48  set 

BKA  =  ka  (3.15) 

BKA2  =  (ika)2  (3.16) 

where  ka  is  given  by  (3.11).  The  eight  statements  before  statement  96  ter¬ 
minate  execution  if  ka  does  not  satisfy  eq.  (8.9)  of  [2].  The  four  statements 
before  statement  98  terminate  execution  if  c  is  not  less  than  6.  Statement  98 
sets 

BKB  =  kb.  (3.17) 

The  eight  statements  before  statement  112  terminate  execution  if  kb  does 

not  satisfy  eq.  (8.6)  of  [2]. 


3.3  The  Admittance  Matrices  of  the 
Rectangular  Waveguides 

The  admittance  matrices  of  the  rectangular  waveguides  are  of  (1.36)  and 
of  (1.37).  The  eight  Y  submatrices  on  the  right-hand  sides  of  (1.36)  auid 
(1.37)  are  approximated  by  Y  submatrices  whose  elements  are  given  by 
eqs.  (2.6),  (2.12),  (2.13),  (2.16),  (2.18),  and  (2.19)  of  [2].  All  of  these  elements 
are  zero  except 


fy  1,ITM,1TM 


i  =  l,2,---,KTM},  = 

i  =  1, 2,  •  •  • ,  KTM},  and  {v;|2TE.2TE 


1,2,--,KTE}, 

,i  =  l,2,---,KTE}. 
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Nested  DO  loops  13  ajid  14  put 


{-jrin 

{-jv^ 

{-jvYil 


.ITM.ITM 

,2TM,2TM 

,2TE,2TE 


i  ■■ 


:1,2,-..,KTM}, 

:1,2,...,KTM}, 

1,2,...,KTE} 


and 


in  the  order  that  they  appear  above  in  YREC(l)  through  YREC(2  *  Kl) 
where  Kl  is  given  by  (3.10). 

The  12  statements  before  DO  loop  13  define  variables  that  Me  used  in 
DO  loop  13.  These  statements  set 


BKB2  =  {kbf 

(3.18) 

(3.19) 

\]=j 

(3.20) 

BKU  =  -1 

(3.21) 

B5  =  sin^o 

(3.22) 

BX5  =  4>o 

(3.23) 

BX  =  2<i>o 

(3.24) 

XB  =  f 

(3.25) 

X 

II 

(3.26) 

X2=f 

(3.27) 

JTE  =  0 

(3.28) 

JTM  =  0 

(3.29) 

where  (i>o,  Xo,  Xi,  and  are  given  by,  respectively,  eqs.  (2.9),  (2.8),  (2.7), 
and  (2.17)  of  [2]. 

In  nested  DO  loops  13  and  14, 

P=p+1  (3.30) 

Q  =  q+l  (3.31) 

where  p  and  q  appear  in  eqs.  (2.6),  (2.12),  (2.13),  (2.16),  (2.18),  and  (2.19) 
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of  [2].  In  inner  DO  loop  14, 


JTE  =  P  -  1  + 


0,  Q  =  1 

X;MM(/),  Q>1. 
1=1 


(3.32) 


The  right-hand  side  of  (3.32)  is  the  right-hand  side  of  (4.5)  with  M  and  N 
replaced  by  P  and  Q,  respectively.  The  right-hand  side  of  (3.32)  is  also  the 
subscript  i  that  appears  in  The  variables  JTEl  and  JTE2  in 

DO  loop  14  are  such  that  —  will  be  put  in  YREC(JTEl)  and 

will  be  put  in  YREC(JT2).  In  DO  loop  14, 

GAM2  =  7^,62  (3.33) 

where  7p,  is  given  by  eq.  (2.3)  of  [2]. 

If  P  =  2  and  Q  =  1  so  that,  according  to  (3.30)  and  (3.31),  p  =  1  and 
q  =  0,  then  the  ten  statements  following  the  branch  statement 

IF(P.NE.2.0R.Q.NE.l)  GO  TO  15 

are  executed.  These  statements  set 


where 


BET  =  M 

(3.34) 

A1  =  0\(\X\ 

(3.35) 

CA  =  cos/?ioxi 

(3.36) 

SA  =  j  s\n(3ioXi 

(3.37) 

Cl  -^10 

SI  = 

(3.38) 

YREC(JTEl)  = 

(3.39) 

A2  =  0ioX2 

(3.40) 

CA  =  COS;3ioX2 

(3.41) 

SA  =  j  sin  0ioX2 

(3.42) 

YREC(JTE2)  = 

(3.43) 

O 

II 

1 

• 

(3.44) 
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Furthermore,  is  given  by  eq.  (2.6)  of  [1]  with  S^j  deleted  and 

is  given  by  eq.  (2.16)  of  [2]  with  (5,j  deleted. 

If  P  2  or  if  Q  ^  1,  then  statement  15  and  the  three  statements  following 
it  set 


GAM  =  7p,6  (3.45) 

YTE  =  (3.46) 

YREC(JTEl)  =  (3.47) 

YREC(JTE2)  =  (3.48) 

where  both  and  —jijY^'^'^^’^^  are  given  by  the  right-hand 

side  of  eq.  (2.12)  of  [2]  with  Sij  deleted. 

If  P  =  1  or  Q  =  1  so  that,  according  to  (3.30)  and  (3.31),  p  =  0  or  9  =  0, 
then  there  are  no  TM  matrix  elements.  If  p  ^  0  and  q  /  0,  then  the  five 
statements  after  statement  17  are  executed.  The  last  two  of  these  statements 
set 


YREC(JTM)  =  (3.49) 

YREC(JTM2)  =  (3.50) 

where  both  — and  eu-e  given  by  the  right-hand 

side  of  eq.  (2.13)  of  [2]  with  6ij  deleted.  In  (3.49), 


JTM  =  P  -  H-  ^ 


0, 


Q  =  2 


Q-i 

5:(mm(o-i),  q>2. 

1=2 


(3.51) 


The  right-hand  side  of  (3.51)  is  the  subscript  i  that  appears  in  Vj,- 


iVl.lTM.lTM 


3.4  Quantities  That  Depend  on  the  Modes 
of  the  Circular  Waveguide 

In  this  section,  the  admittance  matrix  of  the  circular  waveguide,  the  ex¬ 
citation  vector,  and  the  normalized  amplitudes  of  the  propagating  circular 
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waveguide  modes  due  each  expansion  function  are  calculated.  The  admit¬ 
tance  matrix  of  the  circular  waveguide  is  given  by  (1.38).  The  excitation 
vector  is  the  column  vector  of  the  /’s  on  the  right-hand  side  of  (1.32).  The 
normalized  amplitudes  of  the  TMJi  propagating  circular  waveguide  mode 
due  to  the  expansion  functions  and  are,  respectively, 

and  g’ven  by  eqs.  (6.89)  and  (6.90)  of  [2].  The  normalized  ampli¬ 

tudes  of  the  TEJi  propagating  circular  waveguide  mode  due  to  the  expansion 
functions  A/p™  and  are,  respectively,  and  given 

by  eqs.  (6.97)  and  (6.98)  of  [2].^  The  normalized  cimplitudes  of  the  TEJi 
propagating  circular  waveguide  mode  due  to  the  expansion  functions  A/^J^ 


and  are,  respectively,  and  given  by  eqs.  (6.100)  and 

(6.101)  of  [2].  Here,  7  may  be  either  1  or  2.  The  superscript  “e”  attached  to 
TM  indicates  that  the  z-directed  electric  field  of  the  mode  is  even  in  (j),  the 


superscript  “c”  attached  to  TE  indicates  that  the  z-directed  magnetic  field 
of  the  mode  is  even  in  and  the  superscript  “o”  attached  to  TE  indicates 


that  the  z-directed  magnetic  field  of  the  mode  is  odd  in  <f>.  The  elements 
of  the  admittance  matrix  depend  on  quantities  associated  with  all  circular 
waveguide  modes.  However,  the  elements  of  the  excitation  vector  cind  the 
coefficients  and  depend  on  only  TMqi  quantities.  The  co- 

efficients  C^^™,  and  depend  on  only  TE„ 


quantities. 

On  the  right-hand  side  of  (1.38),  the  elements  of  the  K’s  axe  given 
implicitly*  by  eqs.  (3.1)-(3.4)  of  [2].  Formulas  for  the  quantities  on  the 
right-hand  sides  of  eqs.  (3.1)-(3.4)  of  [2]  are  given  in  Chapter  3  of  [2].  The 
excitation  vector  and  the  normalized  amplitudes  of  the  TMqj  circular  wave¬ 
guide  mode  due  to  the  expansion  functions  will  be  calculated  along  with  the 
terms  for  which  r  =  0  and  s  =  1  on  the  right-hand  sides  of  eqs.  (3.1)-(3.4) 
of  [2].  The  elements  of  the  excitation  vector  are  given  by  eqs.  (4.8)  and  (4.9) 
of  [2].  The  normalized  amplitudes  of  the  TE*j  and  TEjj  circular  waveguide 
modes  due  to  the  expansion  functions  will  be  calculated  along  with  the  terms 
for  which  r  =  s  =  1  on  the  right-hand  sides  of  eqs.  (3.1)-(3.4)  of  [2]. 


^There  are  misprints  in  eqs.  (6.97),  (6.98),  (6.100),  and  (6.101)  of  [2].  The  left- 
hand  sides  of  these  equations  should  be  ,  and 

respectively. 

^Equations  (3.1)-(3.4)  of  [2]  give  the  products  of  these  elements  with  —jr)  rather  than 
these  elements  themselves. 
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3.4.1  Preliminary  Calculations  Independent  of  r,  5, 
2,  and  j 


The  statement  •'fter  statement  13  and  the  14  statements  before  DO  loop  12 
define  variables  that  do  not  depend  on  the  summation  indices  r  and  s  and 
the  subscripts  i  and  j  in  eqs.  (3.1)-(3.4)  of  [2].  These  statements  set 


K2  =  2*(KTM  +  KTE) 

(3.52) 

C5  = 

2a 

(3.53) 

___  2o 

ZSS  =  — 

c 

(3.54) 

PMAX  =  MM(1) 

(3.55) 

X 

tsi 

II 

(3.56) 

TZTM  =  8(i>o\  — 

V  ire 

(3.57) 

TZTE  = 

(3.58) 

_ .  2jr 

(3.59) 

(3.60) 

TC,./| 

(3.61) 

TC5  =  \/ - 

V  c 

(3.62) 

TCI  =  ka^l^ 

V  c 

(3.63) 

SNl  =  sin^o 

(3.64) 

CSl  =  cos<f>o 

(3.65) 

K3  =  2(KTM  +  KTE)^ 

(3.66) 
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3.4.2  Overview  of  the  Calculation  of  the  Circular 
Waveguide  Admittance  Matrix 


The  elements  of  the  normalized  admittance  matrix  —jriY^  will  be  stored 
by  columns  in  the  one-dimensional  array  Y.  Each  element  of  the  first  K1 
columns  of  —jrfY^  will  be  accumulated  in  its  assigned  location  in  Y.  The 
last  K1  columns  of  —jrjY^  are  given  by 
p  y3,  1TM,2TM  y3,lTM,2TE  -i 


-JV 


y3, 1TE,2TM 
y3,  2TM,2TM 
y3,  2TE,2TM 


y3,lTE,2TE 

y3,2TM.2TE 

y3,2TE,2TE 


=  -3V 


y3,  2TM,1TM 
y3,  2TE,1TM 
y3,  ITM.ITM 
y3,  ITE.lTM 


y3,2TM,lTE 

y3,2TE,lTE 

y3,lTM,lTE 

y3,lTE,lTE 


(3.67) 


To  arrive  at  relationship  (3.67),  note  that  the  only  quantities  on  the  right- 
hand  sides  of  eqs.  (3.1)-(3.4)  of  [2]  that  depend  on  a  and  7  are  the  5’s.  The 
only  quantities  on  the  right-hand  sides  of  eqs.  (3.10)-(3.13)  of  [2]  for  the  5’s 
that  depend  on  a  and  7  are  the  ^’s  given  by  eqs.  (3.28)-(3.31)  of  [2].  Using 
eqs.  (3.32)-(3.35)  of  [2],  we  see  that  the  ^’s  of  eqs.  (3.28)-(3.31)  of  [2]  are  the 
same  at  a  =  7  —  2  as  they  are  at  a  =  7  =  1.  Because  of  eqs.  (3.36)-(3.39) 
of  [2],  the  ^’s  of  (3.28)-(3.31)  of  [2]  are  the  same  at  a  =  1  and  7  =  2  as  they 
are  at  a  =  2  and  7  =  1.  Therefore,  (3.67)  holds. 

Before  the  elements  of  the  first  K1  columns  of  —jrfY^  are  accumulated  in 
their  assigned  locations  in  Y,  DO  loop  12  sets  the  contents  of  these  locations 
equal  to  zero.  The  accumulations  are  done  in  nested  DO  loops  19,  20,  21, 
22,  23,  24,  and  28.  These  DO  loops  are  arrainged  as  follows. 

DO  19  R»l,500 

C  CALCULATIONS  INVOLVING  R 

DO  20  S»1,SMAX 

C  CALCULATIONS  INVOLVING  R  AND  S 
DO  21  N»1,NMAX 

C  CALCULATIONS  INVOLVING  R,  S,  'WD  N 

DO  22  q=»l,NMAX 

C  CALCULATIONS  INVOLVING  R,  S,  N,  AND  Q 
DO  23  M=M2,M3 

C  CALCULATIONS  INVOLVING  R,  -S,  N,  Q,  AND  M 
DO  24  P»P2,P3 

C  CALCULATIONS  INVOLVING  R,  S,  N,  Q,  M,  AND  P 
DO  28  J»l,2 
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CALCULATIONS  INVOLVING  R,  S.  N.  Q,  M.  P,  AND  J 
28  CONTINUE 
24  CONTINUE 
23  CONTINUE 
22  CONTINUE 
21  CONTINUE 
20  CONTINUE 
19  CONTINUE 

Here, 

SMAX  =  (3.68) 

where  appears  in  (2,14).  Moreover,  NMAX  appears  in  (3.5),  Further¬ 
more, 


M2  =  |2’  ^=1 
\  1,  N  >  1 

(3.69) 

M3  =  MM(N) 

(3.70) 

r  2,  Q  =  1 

11,  Q  >  1 

(3.71) 

P3  =  MM(Q) 

(3.72) 

where  MM  apears  in  (3.5)  with  the  argument  n  -f  1  rather  than  N  or  Q.  The 
indices  R,  S,  and  J  of  DO  loops  19,  20,  and  28  are  related  to  the  summation 
indices  r  and  s  and  the  superscript  q  in  eqs.  (3.1)-(3.4)  of  [2]  by 


R  =  r  -1- 1 

(3.73) 

S  =  s 

(3.74) 

J  =  a. 

(3.75) 

The  indices  Q  and  P  of  DO  loops  22  and  24 

are  related  to  the  subscript  j  in 

eqs.  (3,1)  and  (3.2)  of  [2]  by 


r  0,  Q  =  2 

;  =  P  -  1  +  I 

X;(MM(/)-l),  Q>2 
I  1=2 


(3.76) 


58 


for 


Q  =  2,3,  --,NMAX  \ 
P  =  2,3,-  -,MM(Q)  / • 


Alternatively,  the  indices  Q  and  P  of  DO  loops  22  and  24  are  related  to  the 
subscript  j  in  eqs.  (3.3)  and  (3.4)  of  [2]  by 


for 


i  =  P  - 1  +  < 


0, 


Q  =  1 


e'mmo),  q>i 

t=l 


Q  =  1,2,--,NMAX 
P  =  P2,P2  +  1,---,MM(Q) 


(3.78) 


(3.79) 


where  P2  is  given  by  (3.71).  The  right-hiuid  sides  of  (3.76)  and  (3.78)  are 
those  of  (3.51)  and  (3.32),  respectively. 

Equations  (3.76)  and  (3.77)  define  Q  and  P  in  terms  of  j  because  if  you 
know  j,  you  can  use  (3.76)  and  (3.77)  to  determine  Q  and  P  uniquely.  The 
indices  Q  and  P  of  DO  loops  22  and  24  are  more  simply  defined  by 


Q  =  q  +  1  (3.80) 

P  =  p+1  (3.81) 


where  q  and  p  appear  in  Chapter  3  of  [2].  All  the  combinations  of  Q  amd  P 
that  are  obtained  in  nested  DO  loops  22  and  24  appear  in  (3.79).  However, 
neither  P  =  1  nor  Q  =  1  appear  in  (3.77).  The  subscript  y  and  the  superscript 
7TM  common  to  both  y;3'“TM.-yTM  y.3.o,TE,TrTM  ^3  ^3  2)  of 

[2]  indicate  the  TM  expansion  functions  z)  of  (1.6)  and  (1.7).  These 

expansion  functions  exist  only  for  p  >  1  and  q  >  1. 

WhereM  the  indices  Q  and  P  of  DO  loops  22  and  24  were  related  to  j  in 
eqs.  (3.1)-(3.4)  of  [2],  the  indices  N  and  M  of  DO  loops  21  and  23  are  related 
to  i.  The  indices  N  and  M  of  DO  loops  21  and  23  are  related  to  the  subscript 
i  in  eqs.  (3.1)  and  (3.3)  of  [2]  by 


i  =  M  —  1  + 


0,  N  =  2 

N-l 

X^(MM(/)-l),  N>2 
1=2 


(3.82) 
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for 


N  =  2,3,---,NMAX  \ 
M  =  2,3,---,MM(N)  J  • 


(3.83) 


Alternatively,  the  indices  N  and  M  of  DO  loops  21  iind  23  are  related  to  the 
subscript  i  in  eqs.  (3.2)  and  (3.4)  of  [2]  by 


for 


i  =  M  —  1  + 


0,  N  =  1 

N-l 

mm(/),  n  >  1 

■  /=! 


N  =  l,2,-*-,NMAX 
M  =  M2,M2  +  1,---,MM(N) 


(3.84) 


(3.85) 


where  M2  is  given  by  (3.69).  The  indices  N  and  M  of  DO  loops  21  cind  23 
are  related  to  n  and  m  of  Chapter  3  of  [2]  by 


N  =  n  +  1  (3.86) 

M  =  m  +  1 .  (3.87) 

Neither  M  =  1  nor  N  =  1  appear  in  (3.83).  The  subscript  i  eind  the  super¬ 
script  aTM  common  to  both  y;3>“TM.TrTM  y;3,aTM,irTfe  gqg  ^3 

(3.3)  of  [2]  indicate  that  the  matrix  element  is  the  result  of  taking  the  sym¬ 
metric  product  of  either  (1.4)  with  the  TM  expansion  function  or  (1.5) 

with  the  TM  expansion  function  In  either  case,  m  >  1  and  n  >  1. 


3.4.3  Calculations  Involving  r 

In  view  of  (3.73),  calculations  involving  r  are  calculations  involving  R.  As 
indicated  in  the  arrangement  of  DO  loops  shown  in  Section  3.4.2,  these  cal¬ 
culations  occur  in  DO  loop  19  but  not  in  DO  loop  20.  They  axe  performed 
by  the  first  seven  statements  in  the  range  of  DO  loop  19.  The  first  three 
statements  in  DO  loop  19  set 

SGR  =  (-1)" 

Rl  =  r 
RS  =  r^. 


The  statement 
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(3.88) 

(3.89) 

(3.90) 


sets 


CALL  BES(R,XJ,XP) 


XJ(s)  =  a:„  for  s  =  1,2,- ,Sn^  (3.91) 

XJP(s)  =  i',  for  5  =  1, 2,  •  •  • ,  (3.92) 

SMAX  =  (3.93) 

where  is  defined  by  (2.8),  x(.,  is  defined  by  (2.11),  and  Smax  appears  in 
(2.14).f  The  fifth  statement  in  DO  loop  19  terminates  execution  if  Sniax  > 
200. 

If  5inax  =  0,  the  sixth  statement  in  DO  loop  19  sends  execution  to  state¬ 
ment  25  beyond  the  range  of  DO  loop  19.  Now,  Sniax  =  0  only  when 
^  =  ’’max  +  1*  so  that  the  effect  of  the  sixth  statement  in  DO  loop  19  is 
to  send  execution  out  of  DO  loop  19  when  r  =  1  if,  reczdling  (3.73) 

where  the  index  R  of  DO  loop  19  cannot  exceed  500,  +  2  <  500.  If 

^max  +  2  >  500,  then,  because  of  the  “500”  in  the  statement 

DO  19  R=l,500, 

normal  termination  of  DO  loop  19  will  occur  when  r  =  499  <  -f  1. 

The  statement 

CALL  PHI 

puts  through  of  eqs.  (3.40)-(3.43)  of  [2]  in  PHl(p-t- 1),  PH2(p-|- 1), 
PH3(p  -h  1),  and  PH4(p  -f  1),  respectively,  for  {p  =  0, 1,2,  •  •  •  ,PMAX  —  1} 
where  PMAX  is  given  by  (3.55).  This  statement  also  puts 
and  (^“272  Qf  eqg  (3.36)-(3.39)  of  [2]  in  PHl(m  -h  1  +  PMAX),  PH3(m  -f- 1  -h 
PMAX),  PH2(m  -h  1  +  PMAX),  and  PH4(m  -f  1  +  PMAX),  respectively,  for 
{m  =  0,l,2,--,PMAX-  1}. 

3.4.4  Calculations  Involving  r  and  s 

In  view  of  (3.73)  and  (3.74),  calculations  involving  r  and  s  are  calculations 
involving  R  and  S.  As  indicated  in  the  arrangement  of  DO  loops  shown  in 
Section  3.4.2,  these  calculations  occur  in  DO  loop  20  but  not  in  DO  loop  21. 

^To  be  exact,  (3.91)  and  (3.92)  are  executed  for  the  range  of  values  of  s  in  (6.4) 
where  Smax  might  be  ^max  +  1-  However,  XJ(j)  and  XJP(s)  will  be  used  only  for  {s  = 
1.2,  ■  •  ■  ,Smax}  m  the  main  program. 

*Here,  r^ax  first  appears  in  (2.14)  and  is  defined  shortly  thereafter. 
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They  cire  performed  by  the  first  144  statements  in  DO  loop  20,  aJl  of  those 
statements  of  DO  loop  20  prior  to  the  statement 

DO  21  N=1,NMAX. 

The  first  statement  in  DO  loop  20  always  sets'^ 


XXTM  =  xl, . 

(3.94) 

If  Xrs  <  ka,  then  the  first  statement  in  DO  loop  20  sets  XXTM  of  (3.94)  and 

ITM  =  1 

(3.95) 

GAMTM  = 

(3.96) 

TMP(N)  =  n™+c 

(3.97) 

TMM(N)  =  n™-c 

(3.98) 

DTM(N)  = 

(3.99) 

GTM(N)  =  G™ 

(3.100) 

where  is  given  by  eq.  (3.59)  of  [2].  Moreover,  n™+c. 

n^^~c,  and 

are  given,  respectively,  by  eqs.  (3.79),  (3.78),  and  (^3.80)  of  [2]  with  6  and  q 
replaced  by  TM  and  n,  respectively.  Furthermore,  is  given  by  eq.  (3.82) 

of  [2]  with  6  replaced  by  TM.  In  (3.97)-(3.100), 

N  =  n  +  1,  and  N  =  1, 2,  •  •  • ,  NMAX. 

(3.101) 

If  ^Ts  ^  ka,  then  the  first  statement  in  DO  loop  20  sets  XXTM  of  (3.94)  and 

ITM  =  2 

(3.102) 

GAMTM  =  7™a 

(3.103) 

DQTM{N)  -  ‘  , 

{mry  +  (7r,  c) 

(3.104) 

GCSTM  =  (7™c)' 

(3.105) 

GC2TM  =  27™c 

(3.106) 

ZEETM  =  -4z™ 

(3.107) 

ZZTM  =  -4z™ 

(3.108) 

^See  Section  9.2  where  the  output  variables  of  the  subroutine  DGN 
of  the  input  variables  introduced  in  Section  9.1. 

are  defined  in  terms 
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ZOETM  =  -Az™ 
ZOOTM  =  -Az™ 


PGC  = 


w 

-vTM^ 

ITS 


(3.109) 

(3.110) 

(3.111) 


where  7™a  is  given  by  eq.  (3.57)  of  [2].^  Furthermore,  z™,  z™,  z™,  and 
z™  are,  respectively,  Zee,  Zo,  Zq*,  and  Zoo  of  eqs.  (3.99)-(3.102)  of  [2]  with  g 
replaced  by  7™.  In  (3.104),  N  is  related  to  n  by  (3.101). 

The  second  statement  in  DO  loop  20  always  sets 


XXTE  =  x;^ . 


(3.112) 


If  a:',  <  ka,  then  the  second  statement  in  DO  loop  20  sets  XXTE  of  (3.112) 
and 


ITE  =  1 

(3.113) 

GAMTE  = 

(3.114) 

TEP(N)  =  n'^^+c 

(3.115) 

TEM(N)  = 

(3.116) 

DTE(N)  = 

(3.117) 

GTE(N)  =  Gl^ 

(3.118) 

D3(N)  = 

(3.119) 

G4(N)  =  61“) 

(3.120) 

where  is  given  by  eq.  (3.60)  of  [2]  and  is  given  by  eq.  (3.111)  of 
[2].  Moreover,  n^^“c,  and  are  given,  respectively,  by  eqs.  (3.79), 

(3.78),  and  (3.80)  of  [2]  with  8  and  q  replaced  by  TE  and  n,  respectively. 
Furthermore,  is  given  by  eq.  (3.82)  of  [2]  with  8  replaced  by  TE.  Finally, 
is  given  by  eq.  (3.109)  of  [2]  with  q  replaced  by  n.  In  (3.115)-(3.120), 
N  is  related  to  n  by  (3.101).  If  ka,  then  the  second  statement  in  DO 
loop  20  sets  XXTE  of  (3.112)  and 


ITE  =  2  (3.121) 

GAMTE  =  'fjfa  (3.122) 

^Actually,  Xr,  should  not  be  exactly  equal  to  ka.  If  Xr,  were  exactly  equal  to  ka,  then 
y7$^  would  be  zero  in  which  case  PGC  could  not  be  calculated. 
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DQTE(N)  = 

GCSTE  = 
GC2TE  = 
ZEETE  = 
ZZTE  = 
ZOETE  = 
ZOOTE 
PGC 


1 


(niry  + 

27.?c 
-4z,^ 
-4z] 


TE 
ee 
TE 

TE 
oo 


=  -42, 


(3.123) 

(3.124) 

(3.125) 

(3.126) 

(3.127) 

(3.128) 

(3.129) 

(3.130) 


where  7^®a  is  given  by  eq.  (3.58)  of  [2].  Furthermore,  zj®,  zj^,  and 
zj^  are,  respectively,  Zee,  Zo,  z^*,  and  of  eqs.  (3.99)-(3.102)  of  [2]  with  g 
replaced  by  In  (3.123),  N  is  related  to  n  by  (3.101).  The  variable  PGC 
of  (3.130)  supersedes  PGC  of  (3.111);  PGC  of  (3.111)  is  never  used  in  the 
main  program.  However,  PGC  of  (3.130)  is  used.^ 

Substituting  eqs.  (3.66)-(3.70)  of  [2]  into  eqs.  (3.52)-(3.56)  of  [2]  and 
using  (3.57),  (3.58),  and  eq.  (F.121)  of  [1],  which  is 


n  =  q  ^  0 
otherwise. 


we  obtain 


22 

23 

24 


25 


(Wl)  (  ^  f  I  (F™  +  G™b™) 

(W3)(F’(^>  + 

-(W3)(F’('‘)  + 


1,  n  =  q  ^  0 
0,  otherwise 


^See  the  statement  before  statement  86. 


(3.131) 


(3.132) 

(3.133) 

(3.134) 

(3.135) 
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+(W5)  (  ^  1  (3.136) 

I  J,  >ka} 


where 


=  (I)  (“■)’ 


^Ma’ 


W2 _ 

Kl  -  1  7?/^,  x;,  >  fca  J 

*-(;^)(?) 

*’-(T)(5ft")(7)’(a! 


IfE^’ 

ITS 


“-®(7^)  (?)'(!.) 


Here,  c,  is  Neumann’s  number  given  by 


e  =1  "  =  ® 

\  2,  r  =  l,2,.  .  .. 


(3.137) 


(3.138) 


(3.139) 


(3.140) 


(3.141) 


(3.142) 


In  obtaining  (3.135),  we  omitted  the  factor  Cr/2  in  eq.  (3.55)  of  [2].  This 
factor  is  superfluous  because  it  is  multiplied  by  r.  In  (3.137)-(3.141),  Xo/a, 
Xrs,  and  x',  are,  according  to  eqs.  (2.8),  (3.49),  and  (3.50)  of  [2],  given  by 


Xrs  = 


<s  =  K>- 


(3.143) 

(3.144) 

(3.145) 


The  thirteen  statements  before  statement  46  in  DO  loop  20  set  Wl,  W2,  W3, 
W5,  and  VV6  equal  to  the  right-hand  sides  of  (3.137)-(3.141),  respectively. 


65 


If  r  =  0  and  5  =  1,  control  statement  46  and  the  control  statement 
following  it  send  execution  to  the  next  statement  and  eventually  to  DO  loops 
29  zmd  77.  However,  if  r  =  s  =  1,  then  the  two  previously  mentioned  control 
statements  send  execution  to  statement  71.  For  all  other  values^  of  r  and  s, 
execution  passes  from  statement  46  directly  to  statement  68. 

DO  loop  29.  which  is  executed  only  when  r  =  0  and  5=1,  calculates  the 
elements  of  the  excitation  vector.  The  excitation  vector  is  the  colunm  vector 
on  the  right-hand  side  of  (1.32).  The  elements  of  and 

therein  are  //™,  and  given  by  eqs.  (4.8)  «uid  (4.9)  of 

[2],  In  nested  DO  loops  29  aiid  52,  whose  indices  N  and  M  tzike  on  the  same 
values  as  the  indices  N  and  M  of  nested  DO  loops  21  and  23,*  TI(MTM) 
and  TI(MTM  -I-  Kl)  are  set  equal  to  the  right-hand  side  of  eq.  (4.8)  of  [2] 
provided  that  neither  N  nor  M  is  1.  Furthermore,  TI(MTE  -|-  KTM)  and 
TI(MTE  -I-  KTM  -I-  Kl)  are  set  equal  to  the  right-hand  side  of  eq.  (4.9)  of  [2] 
for  all  values  of  N  and  M  in  DO  loops  29  and  52.  Here,  MTM  eind  MTE  are 
given  by  the  right-hand  sides  of  (3.82)  and  (3.84): 


and 


0,  N  =  2 


MTM  =  M  -  1  +  ^ 


/=2 


N>2 


MTE  =  M  -  1  + 


0,  A^  =  1 

N-l 

^  MM(/),  N>1. 

i=i 


(3.146) 


(3.147) 


Moreover,  KTM  and  Kl  are  given  by  (4.14)  and  (3.10),  respectively.  In 
(3.10),  KTE  is  given  by  (4.13). 

The  indices  N  and  M  of  DO  loops  29  and  52  are  related  to  n  and  m  in 
eqs.  (4.8)  and  (4.9)  of  [2]  by 


N  =  n  -I- 1  (3.148) 

M  =  m  -I- 1.  (3.149) 

t“All  other  values”  are  all  values  other  that  those  mentioned  in  the  previous  two 
sentences. 

tSee  the  arrangement  of  DO  loops  in  Section  3.4.2  and  eqs.  (3.69)  and  (3.70). 
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The  fourth,  fifth,  and  eighth  statements  in  DO  loop  29  set 


TITM  =  80on 


TITE  =  S(i>o 


(3.150) 

(3.151) 


If  m  is  even  and  neither  n  nor  m  is  zero,  execution  passes  to  the  fourth 
statement  in  DO  loop  52.  The  fifth  and  seventh  statements  in  DO  loop  52 
set 


TI(MTM)  =  0  (3.152) 

TI(MTM  +  Kl)  =  0  (3.153) 

when  m  is  even  and  neither  n  nor  m  is  zero.  The  second  and  fourth  state¬ 
ments  after  statement  66  set 


TI(MTE-l-KTM)  =  0  (3.154) 

TI(MTE  -f  KTM  +  Kl)  =  0  (3.155) 


when  m  is  even. 

If  m  is  odd,  the  second  statement  in  DO  loop  52  sends  execution  to 
statement  65.  The  statement  after  statement  65  sets 

Fl  =  ^.  (3.156) 

If  neither  n  nor  m  is  zero,  the  sixth  and  eighth  statements  after  statement 
65  set 


TI(MTM)  =  SA  (3.157) 

TI(MTM -I- Kl)  =  SA  (3.158) 

when  m  is  odd  where,  thanks  to  the  fifth  statement  after  statement  65,  SA  is 
the  right-hand  side  of  eq.  (4.8)  of  [2]  when  m  is  odd.  The  second  and  fourth 
statements  after  statement  67  set 

TI(MTE  -I-  KTM)  =  SA  (3.159) 

TI(MTE-l-KTM-l-Kl)  =  SA  (3.160) 
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where,  by  virtue  of  statement  67,  SA  is  the  right-hand  side  of  eq.  (4.9)  of  [2] 
when  m  is  odd. 

Nested  DO  loops  77  and  78  calculate  the  normalized  aimplitudes 
and  of  the  TMJj  circular  waveguide  mode  due  to  the  expansion 

functions  and  respectively.  These  amplitudes  are  given  by 

eqs.  (6.89)  and  (6.90'  of  [2].  The  third  statement  before  DO  loop  77  sets 

TC2  =  ^(^).  (3.161) 

The  variables  N,  Nl,  M,  Ml,  M2,  M3,  MTE,  «ind  MTM  in  nested  DO 
loops  77  and  78  take  on  the  sjune  values  as  in  nested  DO  loops  29  and  52. 
The  indices  N  and  M  of  nested  DO  loops  77  and  78  are  related  to  q  and  p  of 
eqs.  (6.89)  and  (6.90)  of  [2]  by 


N  =  5-1- 1 
M  =  p-f  1. 


Upon  entry  into  DO  loop  78, 


TC3  = 


where  is  when  r  =  0  and  s  =  1. 

.\fter  execution  of  the  fourth  statement  in  DO  loop  78, 


where,  as  in  eq.  (6.60)  of  [2], 


c 


kpqby  4 


The  eighth  and  tenth  statements  in  DO  loop  78  set 

CVTME(MTM)  =  Co™'/™ 
CVTME(MTM  -l-  Kl)  =  C^,^//™ 


(3.162) 

(3.163) 


(3.164) 


(3.165) 


(3.166) 


(3.167) 

(3.168) 
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where  and  are  given  by  eq.  (6.89)  of  [2]  with  7  replaced  by 

1  and  2,  respectively.^  The  second  and  fourth  second  and  fourth  statements 
after  statement  79  set 


CVTME(MTE  +  KTM)  =  (3.169) 

CVTME(MTE  +  KTM  +  Kl)  =  (3.170) 

where  and  are  given  by  eq.  (6.90)  of  [2]  with  7  replaced 

by  1  and  2,  respectively.  The  statement  after  statement  77  sets 

GAMOl  =  (3.171) 


for  use  in  statement  71. 

Statement  71  is  executed  only  when  R  =  2  and  S  =  1,  that  is,  when 
r  =  s  =  1.  From  statement  71,  execution  eventually  passes  to  nested  DO 


loops  80  and  73.  These  nested  DO  loops  calculate  the  normalized  amplitudes 

and  of  the  TE\,  and  TE^i  circular 


waveguide  modes  due  to  the  expansion  functions.  Since  the  third  statement 
in  DO  loop  20  has  already  set 


xR=I;;-^^ 

statement  71  and  the  statement  following  it  set 


(3.172) 


(3.173) 

(3.174) 


Because  of  (3.143),  the  factor  z<,/a  in  (3.174)  is  equal  to  the  factor  (sin  4>o)l<f>o 
in  eqs.  (6.97),  (6.98),  (6.100),  and  (6.101)  of  [2]. 

The  variables  N,  Nl,  M,  Ml,  M2,  M3,  MTE,  and  MTM  in  nested  DO 
loops  80  and  73  take  on  the  same  values  as  in  nested  DO  loops  29  and  52. 
The  indices  N  and  M  of  nested  DO  loops  80  and  73  are  related  to  q  and  p  of 
eqs.  (6.97),  (6.98),  (6.100),  and  (6.101)  of  [2]  by 


N  =  9  +  1 
M  =  p  +  1. 

^The  right-hand  sides  of  eqs.  (6.89)  and  (6.90)  of  [2]  do  not  depend  on  7. 


(3.175) 

(3.176) 


Upon  entry  into  DO  loop  73, 


TC3  = 

/c,7r6  0^^  rpTE] 

(3.177) 

TC7  - 

(3.178) 

Upon  execution  of  statement  74, 

TC4  = 

[ate] 

(3.179) 

TC8  = 

V  C  ^  0^  (i'5  -  1)  U  )  [0j,^a)  1  n  ■ 

(3.180) 

The  fourth,  fifth. 

sixth,  and  seventh  statements  after  statement  74  set 

PAGl  =  (TC4)<?iJ^ 

(3.181) 

PAG2  =  (TC4)^« 

(3.182) 

PAG3  =  (TC8)(^” 

(3.183) 

PAG4  =  (TC8)^^ 

(3.184) 

where  TC4  and  TC8  are  given  by  (3.179)  and  (3.180).  Moreover,  <f>p^, 

4f‘p,  and  are  given  by  eqs.  (6.105)-(6.108)  of  [2].^ 

The  fifth  and  fourth  statements  before  statement  72  set 


CVTEE(MTM)  =  (3.185) 

CVTEO(MTM)  =  (3.186) 

where  and  are  given,  respectively,  by  eqs.  (6.97)  and 

(6.100)  of  [2]  with  7  =  1.^  The  second  and  first  statements  before  statement 

^There  are  misprints  in  eqs.  (6.105)-(6.108)  of  [2].  Each  subscript  “o”  on  the  right-hand 
sides  of  eqs.  (6.105)-(6.108)  of  [2]  should  be  replaced  by  “p”.  Furthermore,  the  first  <l>^^ 
on  the  right-hand  side  of  eq.  (6.108)  of  [2]  should  be  replaced  by 

^As  stated  in  a  footnote  of  Section  3.4,  there  are  misprints  in  eqs.  (6.97),  (6.98),  (6.100), 
and  (6.101)  of  [2].  The  subscript  “11”  should  be  replaced  by  “11, p^”  everywhere.  Fur¬ 
thermore,  the  superscript  “TEe”  in  eq.  (6.101)  of  [2]  should  be  replaced  by  “TEo”. 
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72  set 


CVTEE(MTM  +  Kl)  =  (3.187) 

CVTEO(MTM  +  Kl)  =  (3.188) 

where  and  are  given,  respectively,  by  eqs.  (6.97)  and 

(6.100)  of  [2]  with  7  =  2.  The  third  and  fourth  statements  after  statement 
72  set 


CVTEE(MTE  +  KTM)  =  (3.189) 

CVTEO(MTE  +  KTM)  =  (3.190) 

where  and  are  given,  respectively,  by  eqs.  (6.98)  and 

(6.101)  of  [2]  with  7  =  1.  The  sixth  and  seventh  statements  after  state¬ 
ment  72  set 

CVTEE(MTE  +  KTM  +  Kl)  =  (3.191) 

CVTE0(MTE  +  KTM  +  Kl)  =  (3.192) 

where  and  are  given,  respectively,  by  the  right-hand  sides 

of  eqs.  (6.98)  and  (6.101)  of  [2]  with  7  =  2. 

3.4.5  Calculations  Involving  r,  5,  and  n 

In  view  of  (3.73),  (3.74),  and  (3.86),  calculations  involving  r,  s,  and  n  are 
calculations  involving  R,  S,  and  N.  As  indicated  in  the  awrangement  of  DO 
loops  shown  in  Section  3.4.2,  these  calculations  occur  in  DO  loop  21  but  not 
in  DO  loop  22.  They  are  performed  by  the  first  27  statements  in  DO  loop 
21,  all  of  those  statements  of  DO  loop  21  prior  to  statement  86. 

The  meaning  of  the  variables  NTM  and  NTE,  which  are  set  to  zero  before 
entry  into  DO  loop  21,  is  clarified  by  focusing  on  the  following  statements 
extracted  from  the  main  program: 

68  NTM=0 
NTE^O 

DO  21  N»1,NMAX 
M2»l 
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N1»N-1 

IF(Nl.Eq.O)  M2»2 
M3«MM(N) 

86  DO  22  q-l,NMAX 

87  MTM=NTM 
MTE=NTF. 

DO  23  M»M2,M3 

IF(Nl.Eq.O.OR.Ml.Eq.O)  GO  TO  26 
MTM=MTM+1 
26  KTE*MTE+1 
23  CONTINUE 
22  CONTINUE 
NTM=MTM 
NTE-MTE 
21  CONTINUE 

Nested  DO  loops  21  and  23  were  constructed  so  that  the  variables  MTM  «ind 
MTE  therein  take  on  the  same  values  as  those  in  nested  DO  loops  29  zmd  52. 
The  variables  NTM  and  NTE  assure  that,  upon  entry  into  DO  loop  23,  the 
values  of  MTM  and  MTE  will  be  the  same  for  all  values  of  the  index  Q  of 
DO  loop  22.  Here,  DO  loop  22  is  regarded  as  merely  an  intervening  DO  loop, 
which  causes  DO  loop  23  to  be  executed  NMAX  times  for  each  value  of  N. 
After  incremented  in  DO  loop  23,  MTM  and  MTE  are  equal,  respectively, 
to  i  of  (3.82)  and  i  of  (3.84). 

The  meaning  of  the  variables  QTM  and  QTE,  which  the  fifth  and  sixth 
statements  in  DO  loop  21  set  to  zero,  is  clarified  by  focusing  on  the  following 
statements  extracted  from  the  main  program: 

qTM=0 

qTE=0 

86  DO  22  q=l,  NMAX 
P2=l 

qi=q-i 

iFCqi.Eq.o)  P2*2 
P3=MM(q) 

DO  23  M=M2,M3 
PTM*qTM 
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PTE»QTE 

DO  24  P*P2,P3 

Pl-P-1 

IF(qi.EQ.O.OR.Pl.Eq.O)  GO  TO  27 
PTM»PTM+1 
27  PTE»PTF+1 
24  CONTINUE 
23  CONTINUE 
qTM»PTM 
qTE*PTE 
22  CONTINUE 

Here,  DO  loop  23  is  regarded  as  merely  an  intervening  DO  loop.  The  limits 
M2  and  M3  of  its  index  are  of  no  concern  here.  Note  that  the  variables 
QTM,  QTE,  Q,  Ql,  P,  PI,  P2,  P3,  PTM,  and  PTE  in  the  above  FORTRAN 
statements  take  on  the  same  values  as  the  respective  variables  NTM,  NTE, 
N,  Nl,  M,  Ml,  M2,  M3,  MTM,  and  MTE  in  the  FORTRAN  statements  in 
the  second  paragraph  of  this  section.  After  incremented  in  DO  loop  24,  PTM 
and  PTE  are  equal,  respectively,  to  j  of  (3.76)  and  j  of  (3.78). 

The  seventh  and  eighth  statements  in  DO  loop  21  set 


nb 

FNIB  =  — 

c 

(3.193) 

NEO  =  11’’* 

(  2,  n  odd. 

(3.194) 

Statement  18  and  the 

six  statements  following  it  set 

TMMN  =  n™-c 

(3.195) 

TMPN  =  n'^'^+c 

(3.196) 

DTMN  = 

(3.197) 

when  Xrs  <  ka  and 

DQTMN  =  - ^  , 

(n7r)2  +  (7j^’c)^ 

(3.198) 

TMl  =  1  2 

(n7r)2  + 

(3.199) 
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(3.200) 


TM2  = 


(nT)2  +  (tJMc) 


when  Xra  >  ka.  Statement  84  and  the  nine  statements  following  it  set 


TEMN  = 

(3.201) 

TEPN  =  n'^^+c 

(3.202) 

DTEN  = 

(3.203) 

D3N  ^ 

(3.204) 

if  x',  <  ka  and 


dqten  =  -  \ 

(3.205) 

TEl 

(n7r)2  + 

(3.206) 

«T»po  .  ^  Jrs  ^ 

(niry  + 

(3.207) 

FNl  =  n 

(3.208) 

(3.209) 

if  x',  >  ka. 

3.4.6  Calculations  Involving  r,  s,  n,  and  q 

In  view  of  (3.73),  (3.74),  (3.86),  and  (3.80),  calculations  involving  r,  s,  n,  and 
q  are  calculations  involving  R,  S,  N,  and  Q.  As  indicated  in  the  arrangement 
of  DO  loops  shown  in  Section  3.4.2,  these  calculations  occur  in  DO  loop  22 
but  not  in  DO  loop  23.  They  are  performed  by  all  statements  in  DO  loop  22 
prior  to  entry  into  DO  loop  23. 
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The  fifth  through  tenth  statements  in  DO  loop  22  set 


W8  =  Ws  (3.210) 

'1,  n  even,  q  even 

NQEO  =  K’  "  (3.211) 

2,  n  odd,  q  even 

.  3,  n  odd,  q  odd 
NEQQ  =  {  2:  o"  he?le“ 

=  {  2: 

In  (3.210),  Ws  is  given  by  eq.  (3.6)  of  [2].  If  Xra  <  ka,  statement  31  and  the 
five  statements  following  it  set 

IM  =  n  -  9  (3.214) 

IP  =  n  +  g  (3.215) 

TMMQ  =  q'^^-c  (3.216) 

TMPQ  =  q'^^-^c  (3.217) 

FTM  =  F™  (3.218) 

Z1  =  (3.219) 


where  F™  is  given  by  eq.  (3.83)  of  [2]  with  6  replaced  by  TM.  Moreover,  zi 
is  given  by  (3.132)  for  <  ka.  The  function  subroutine  FXY  called  in  the 
fourth  statement  after  statement  31  is  explained  in  Chapter  10. 

If  >  ka,  the  block  of  statements  beginning  with  statement  32  and 
ending  with  statement  120  sets 

ZIR  =  -c^,^  (3.220) 

where  c™  is  given  by  the  right-hand  side  of  eq.  (3.94)  of  [2]  with  <5  replaced  by 
TM  in  the  definitions  of  the  quantities  therein.  After  execution  of  statement 
122, 

ZlR  =  zi  (3.221) 
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where  zi  is  given  by  (3.132)  for  i,*  ^  ka  with  j(F^^  +  given  by 

eq.  (3.93)  of  [2]  with  S  replaced  by  TM. 

If  <  ka,  the  block  of  statements  beginning  with  statement  36  and 
ending  with  the  second  statement  before  statement  37  sets 


Z2  =  22 

(3.222) 

Z3  =  23 

(3.223) 

Z4  =  24 

(3.224) 

Z5  =  25 

(3.225) 

where  Z2,  z^,  24,  and  25  are  given  for  x',  <  ka  by  (3.133)-(3.136),  respec¬ 
tively.  In  (3.133)-(3.136),  F^^\  F^*\  and  F^^^  are  given,  respectively, 

by  eq.  (3.83)  of  [2]  with  S  replaced  by  TE  and  eqs.  (3.112)-(3.114)  of  [2]. 

If  2',  >  ka,  the  block  of  statements  beginning  with  statement  37  and 
ending  with  statement  133  is  executed.  The  block  of  statements  beginning 
with  statement  37  and  ending  with  statement  128  sets 

ZR  =  -clf  (3.226) 

where  is  given  by  the  right-hand  side  of  eq.  (3.94)  of  [2]  with  6  replaced 
by  TE  in  the  definitions  of  the  quantities  therein.  The  block  of  statements 
beginning  with  the  statement  after  statement  128  and  ending  with  statement 
133  sets 

Z2R  =  22  (3.227) 

Z3R  =  23  (3.228) 

Z4R  =  24  (3.229) 

Z5R  =  25  (3.230) 

where  22  is  given  by  (3.133)  for  x',.,  >  ka  with  j{F^^  -|-  given 

by  eq.  (3.93)  of  [2]  with  6  replaced  by  TE.  Furthermore,  23,  24,  and  25 

are  given,  respectively,  by  (3.134),  (3.135),  and  (3.136)  for  x(.,  >  ka  with 
^’(3)  ^  f{4)  q(4)£)'TE  j  (F^®^  -I-  given,  respectively,  by 

eqs.  (3.121),  (3.128),  and  (3.132)  of  [2]. 

The  variables  Zl,  Z2,  Z3,  Z4,  and  Z5  are  complex  variables  whereais  ZIR, 
Z2R,  Z3R,  Z4R,  and  Z5R  are  real  variables.  To  avoid  mixed  modes  later  on, 
statement  53  and  the  three  statements  following  it  change  the  names  of  the 
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real  variables  Z2R,  Z3R,  Z4R,  «ind  Z5R  to  Z2,  Z3,  Z4,  and  Z5  when  x„  <  ka 
Ka  ^  ka-  Furthermore,  statement  54  changes  the  name  of  ZIR  to  Z1 
when  Xrs  >  ka  and  x'„  <  ka.  The  two  statements  before  DO  loop  23  appear 
in  the  first  group  of  extracted  FORTRAN  statements  in  Section  3.4.5. 


3.4.7  Calculations  Involving  r,  s,  n,  q  and  m 


In  view  of  (3.73),  (3.74),  (3.86),  (3.80),  and  (3.87),  calculations  involving  r, 
s,  n,  q,  and  m  are  calculations  involving  R,  S,  N,  Q,  and  M.  As  indicated  in 
the  arrangement  of  DO  loops  shown  in  Section  3.4.2,  these  calculations  occur 
in  DO  loop  23  but  not  in  DO  loop  24.  They  are  performed  by  all  statements 
in  DO  loop  23  prior  to  entry  into  DO  loop  24. 

Before  statement  26  is  executed. 


KMN  = 


{ 


1, 

2, 


n  =  0  or  m  =  0 
otherwise. 


(3.231) 


Given  m  and  n,  KMN  indicates  whether  and  of  (1.6)  and  (1.7) 
exist. ^  Since  the  subscript  i  in  eq.  (3.3)  of  [2]  is  a  condensation  of  the  sub¬ 
scripts  m  and  n,  KMN  indicates  whether  yr3,2TM,iTE 

given  the  values  of  m  and  n.^  If  KMN  =  1,  these  F’s  do  not  exist,  if 
KMN  =  2,  they  do  exist.  The  three  statements  after  statement  26  set 


W9  = 

Wg 

(3.232) 

FMIB  = 

me 

T 

(3.233) 

TB  = 

27r 

(3.234) 

{ka){k„nb) 

where  Wg  is  given  by  eq.  (3.7)  of  [2].  The  two  statements  before  DO  loop  24 
appear  in  the  second  group  of  extracted  FORTRAN  statements  in  Section 
3.4.5. 

^Here,  (1.6)  and  (1.7)  with  p  and  q  replaced  by  i  and  j  are  meant. 

^No  mention  is  made  of  yi^.iTM.TTE  y.3,2TM,2TE  ^ot  computed. 

Instead,  they  are  obtained  from  (3.67). 


77 


3.4.8  Calculations  Involving  r,  s,  n,  g,  m,  and  p 

In  view  of  (3.73),  (3.74),  (3.86),  (3.80),  (3.87),  and  (3.81),  calculations  in¬ 
volving  r,  s,  n,  q,  m,  and  p  are  calculations  involving  R,  S,  N,  Q,  M,  and  P. 
As  indicated  in  the  arrangement  of  DO  loops  shown  in  Section  3.4.2,  these 
calculations  occur  in  DO  loop  24  but  not  in  DO  loop  28.  They  are  performed 
by  all  statements  in  DO  loop  24  prior  to  entry  into  DO  loop  28. 

Before  statement  27  is  executed, 


KPQ  = 


1 


1, 

2, 


q  =  0  or  p  =  0 
otherwise. 


(3.235) 


Given  p  and  q,  KPQ  indicates  whether  of  (1.6)  exists.  Since  the 

subscript  j  in  eq.  (3.2)  of  [^is  a  condensation  of  the  subscripts  p  and  q, 
KPQ  indicates  whether  and  exist,  given  the  values  of 

p  and  q.  If  KPQ  =  1,  these  K’s  do  not  exist.  If  KPQ  =  2,  they  do  exist. 
The  seventh  through  seventeenth  statements  in  DO  loop  24  set 


WIO  =  Wio 

(3.236) 

Wll  =  Wn 

(3.237) 

T1  =  f 

(3.238) 

PHIP  = 

(3.239) 

PH2P  =  4"^ 

(3.240) 

PH3P  = 

(3.241) 

PH4P  =  4“^- 

(3.242) 

In  (3.236)-(3.238),  H^io,  W^ii,  and  T  are  given,  respectively,  by  eqs.  (3.8), 
(3.9),  and  (3.5)  of  [2].  As  defined  by  the  eighteenth  statement  in  DO  loop 
24,  KB  indicates  whether  y^J.iTM.iTM  y.3.2TM,iTM  if  KB  =  1,  these 

K’s  do  not  exist.  If  KB  =  2,  they  do  exist.  The  nineteenth  through  twenty- 
fifth  statements  in  DO  loop  24  set  KMM,  KEM,  KME,  and  KEE  so  that 


Y(KMM)  =  (3.243) 

Y(KEM)  =  (3.244) 

Y(KME)  =  (3.245) 

Y(KEE)  =  .  (3.246) 
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At  this  point  in  the  development,  equality  has  not  yet  been  obtained  in  the 
four  equations  above.  Presently,  the  equal  sign  in  each  of  these  equations 
means  that  the  contribution  to  the  right-hand  side  of  the  equation  due  to 
the  term  of  the  appropriate  double  sum  in  eqs.  (3.1)-(3.4)  of  [2]  will  be 
added  to  what  was  previously  stored  in  the  computer  program  variable  on 


the  left-hand  side  of  the  equation.  In  (3.243)-(3.246), 

KMM  =  (PTM  -  1)  ♦  K2  -f  MTM  (3.247) 

KEM  =  (PTM  -  1)  *  K2  -I-  KTM  -I-  MTE  (3.248) 

KME  =  (KTM  -I-  PTE  -l)*K2  +  MTM  (3.249) 

KEE  =  (KTM  -b  PTE  -  1)  ♦  K2  -b  KTM  -b  MTE.  (3.250) 


The  variables  K  and  MJ  defined  in  the  two  statements  prior  to  DO  loop  28 
will  be  treated  in  the  next  section. 

3.4.9  Calculations  Involving  r,  s,  n,  q,  m,  p,  and  a 

In  view  of  (3.73),  (3.74),  (3.86),  (3.80),  (3.87),  (3.81),  and  (3.75),  calculations 
involving  r,  s,  n,  q,  m,  p,  and  a  are  calculations  involving  R,  S,  N,  Q,  M,  P, 
and  J.  As  indicated  in  the  arrangement  of  DO  loops  shown  in  Section  3.4.2, 
these  calculations  occur  in  DO  loop  28. 

By  virtue  of  the  two  statements  prior  to  DO  loop  28,  statement  57,  and 
the  statement  after  statement  57,  we  have 


K  =  (J  -  1)  *  K1 

(3.251) 

MJ  =  M  -b  (J  -  1)  *  PMAX 

(3.252) 

in  DO  loop  28.  The  first  four  statements  in  DO  loop  28  set 

PHIMJ  = 

(3.253) 

PH2MJ  = 

(3.254) 

PH3MJ  = 

(3.255) 

PH4MJ  = 

(3.256) 

where  0  =  3  and  7  =  1.  Furthermore,  the  <f>'s  are  given  by  eqs.  (3.32)-(3.39) 
of  [2].  The  fifth  through  eleventh  statements  in  DO  loop  28  set 

PAGl  =  (3.257) 
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PAG2  = 

(3.258) 

PAG3  = 

(3.259) 

PAG4  = 

(3.260) 

where  a  =  J  and  7  =  1.  Moreover,  the  (^’s  are  given  by  eqs.  (3.28)-(3.31)  of 

[2]. 

If  either  Xr,  <  ka  or  x',  <  Ara,  then  statement  30  allows  execution  to 
continue  to  statement  50.  The  block  of  statements  beginning  with  statement 
50  «uid  ending  with  the  second  statement  before  statement  56  performs  the 
following  four  operations: 

1.  It  adds  to  Y(IMM)  the  rs  term  of  the  sum  in  eq.  (3.1)  of  [2]. 

2.  It  adds  to  Y(IEM)  the  rs  term  of  the  sum  in  eq.  (3.2)  of  [2]. 

3.  It  adds  to  Y(IME)  the  rs  term  of  the  sum  in  eq.  (3.3)  of  [2]. 

4.  It  adds  to  Y(IEE)  the  rs  term  of  the  sum  in  eq.  (3.4)  of  [2]. 

In  the  four  items  above,  a  =  J  and  7  =  1  in  eqs.  (3.1)-(3.4)  of  [2).  As  defined 
by  statements  38,  39,  40,  and  35,  respectively, 


IMM  =  KMM  +  K 

(3.261) 

lEM  =  KEM  +  K 

(3.262) 

IME  =  KME  +  K 

(3.263) 

lEE  =  KEE  -f  K 

(3.264) 

where  K  is  given  by  (3.251).  Furthermore,  KMN,  KEM,  KME,  and  KEE  are 

given  by  (3.247)-(3.250),  respectively. 

Statement  50  and  the  three  statements  following  it  set 

SI  =  5i 

(3.265) 

S3  =  53 

(3.266) 

S4  =  54 

(3.267) 

S5  =  55 

(3.268) 

where  the  5’s  are  given,  respectively,  by  eqs.  (3.10)-(3.13)  of  [2]. 

The  state- 

ment  after  statement  38  sets 

YMM  =  f{W^S,  +  -  W,oS,  -  W^S^) 

(3.269) 
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where  the  right-hand  side  of  (3.269)  appears  in  eq,  (3.1)  of  [2].  The  statement 
after  statement  39  sets 


YEM  =  f{Wji  -  WsSz  -  WnS^  +  W^oSs).  (3.270) 

The  statement  after  statement  40  sets 

YME  =  ^(W^xo^i  +  WiiSs  +  WsS4  +  W^Ss).  (3.271) 

The  statement  after  statement  35  sets 

YEE  =  f{WuSi  -  WioSz  -I-  WsS4  -  lYs^s).  (3.272) 

If  Xr,  >  ka  and  z',  >  ka,  then  control  statement  30  sends  execution 
to  statement  56.  The  block  of  statements  beginning  with  statement  56  and 
ending  with  the  statement  before  statement  57  does  for  the  case  where  z,,  > 
ka  and  z',  >  ka  what  is  done  for  the  case  where  either  z„  <  ka  or  zj.,  <  ka 
by  the  block  of  statements  beginning  with  statement  50  and  ending  with 
the  second  statement  before  statement  56.  The  former  block  of  statements, 
which  is  executed  more  and  more  times  as  XM  is  made  larger  and  larger, 
executes  faster  than  the  latter  block  of  statements.  The  real  variables  SIR, 
S3R,  S4R,  S5R,  ZlR,  Z2R,  Z3R,  Z4R,  and  Z5R  are  easier  to  deed  with  than 
their  complex  counterparts  Si,  S3,  S4,  S5,  Zl,  Z2,  Z3,  Z4,  aind  Z5. 

If  a  normal  exit  from  DO  loop  19  occurs,  then  the  stop  statement  adter 
statement  44  terminates  execution.  This  termination  cein  be  avoided  by 
either  decreasing  XM  or  replacing  the  “500”  in  the  statement 

DO  19  R=l,  500 

by  a  larger  number.  If  the  sixth  statement  in  DO  loop  19  sends  control 
to  statement  25  when  R  =  1,  then  the  stop  statement  after  statement  42 
terminates  execution.  This  termination  can  be  avoided  by  increiising  XM. 


3.5  The  Matrix  Equation  and  Its  Solution 

In  Section  3.5.1,  the  product  of  —j-q  with  the  admittance  matrix  [Y^+V^+Y^] 
in  the  matrix  equation  (1.32)  is  put  in  the  one-dimensional  array  Y.  Then, 
in  Section  3.5.1,  using  the  values  of  the  elements  of  —  _jjiTE 
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ajjj  _j/^TEgj^J,“i.3  stored  in  TI,  the  matrix  equa¬ 
tion  (1.32)  is  solved  for  the  elements  of  ,  i^2TM 

and  . 

V 

3.5.1  The  Admittance  Matrix 


Nested  DO  loo^^s  89  and  88  implement  (3.67).  The  fifth  statement  in  DO 
loop  88  sets 


-JTf 


y3,lTM,2TM 

y3,lTE,2TM 


y3,lTM,2TE 

y3,lTE,2TE  =  ~JV 
JlJ 


y3,2TM,lTM  y3,2TM,lTE 

y3,2TE,lTM  y3,2TE,lTE  (3.273) 

JlJ 


where  the  subscript  IJ  denotes  the  IJ‘*‘  element  of  the  matrix  enclosed  in  the 
square  brackets.  The  sixth  statement  in  DO  loop  88  sets 


-jri 


y3,2TM,2TM 

y3,2TE,2TM 


y3.2TM,2TE  ' 

y3,2TE,2TE  =  ~JV 
JlJ 


y3,lTM,lTM 

yS.lTE.lTM 


y3,lTM,lTE 

V3,1TE,1TE  •  (3.274) 
^  JlJ 


After  exit  from  nested  DO  loops  89  and  88,  the  elements  of  —jrjY^  will  be 
stored  by  colurrms  in  the  one-dimensional  array  Y.  Here,  is  given  by 
(1.38). 

Since  —jrf  [Y^  +  is  a  diagonal  matrix  whose  nonzero  elements  reside 
in  the  one-dimensional  array  YREC,  the  elements  of  —jr}  [Y*  -f  Y^  -I-  Y^]  can 
be  put  in  the  one-dimensional  array  Y  by  adding  the  entries  of  YREC  to  the 
“diagonal”  entries  of  Y.^  This  addition  is  done  in  DO  loop  43. 


3.5.2  Solution  of  the  Matrix  Equation 

The  matrix  equation  (1.32)  is  solved  by  means  of  the  two  statements  after 
statement  43.  These  two  statements  put  in  V  the  elements  of  the  solution  V 
of  the  matrix  equation 

YY  =  /  (3.275) 

when  Y  is  the  K2  x  K2  matrix  whose  elements  are  stored  by  columns  in  the 
one-dimensional  array  Y  and  I  is  the  K2x  1  column  vector  whose  elements 
reside  in  TI.^ 

^The  “diagonal”  entries  of  Y  are  the  the  entries  of  Y  that  contain  the  diagonal  ele¬ 
ments  of  the  matrix.  Thus,  the  “diagonal  entries”  of  Y  are  Y(l),  Y(K2  +  2),  Y{2*K2  -1- 
3).-Y((K2)2). 

*The  subroutines  DECO.MP  and  SOLVE  are  listed  in  Chapter  11. 


The  elements  of  —jrj  [V*  +  +  were,  as  described  in  Section  3.5, 

stored  by  columns  in  the  one-dimensional  array  Y.  Moreover,  the  elements 
of  —  ^  were 

put  in  TI  by  nested  DO  loops  29  and  52  whose  indices  appear  in  (3.148)  2uid 
(3.149).  Thus,  the  two  statements  after  statement  43  put  in  V  the  elements 
of  where 

yiTM,  yiTE^  y2TM^  (/JTE  column  vectors  that  satisfy  (1.32). 


3.6  The  Coefficients  of  the  TEio  Modes  in 
the  Rectangular  Waveguides 

The  normalized  complex  coefficient  of  the  ^x-traveling  TEio  wave  in  the  left- 
hand  rectangular  waveguide  of  Fig.  2  is  called  Here,  “^x-traveling” 

means  traveling  in  the  Tx-direction.  The  normalization  of  is  specified 

by  eq.  (5.30)  of  [2].  The  right-hand  side  of  this  equation  is  the  electric  field 
that  would  exist  in  the  circular  waveguide  if  the  transverse  electric  field  of  the 
z-traveling  TM^i  wave  a.t  z  =  L3  in  the  circular  waveguide  were  y 
where  Zq^‘°  and  are,  respectively,  the  chemacteristic  impedance  and 
transverse  electric  vector  of  the  TMqi  mode  field  defined  by  eq.  (B.l)  of  [1]. 
According  to  eq.  (A.15)  of  [1],  the  quantity  that  multiplies  on  the 

right-hand  side  of  eq.  (5.30)  of  [2]  is  ^qI\Jy^  when  x  =  — x,,.  According  to 
eq.  (A. 14)  of  [1],  the  quantity  that  multiplies  Clo^'^  on  the  right-hand  side  of 
eq.  (5.30)  of  [2]  is  e^o/yjY^Q^  when  x  =  -x^.  Now,  the  time- average  power 

of  the  x-traveling  TMJj  wave  whose  transverse  electric  field  is 

it  z  =  L3  in  the  circular  waveguide  is  unity.  The  time- average  power  of  the 

^x-traveling  TEio  wave  whose  electric  field  is  ^q/ when  x  =  x,,  in  the 

left-hand  rectangular  waveguide  is  also  unity.  Hence,  is  the  ratio 

of  the  time-average  power  of  the  q:x-traveling  TEio  wave  in  the  left-hand 
rectangular  waveguide  to  the  time-average  power  of  the  z-traveling  TMgi 
wave  in  the  circular  waveguide. 

The  normalized  complex  coefficient  of  the  ±x-traveling  TEio  wave  in  the 
right-hand  rectangular  waveguide  of  Fig.  2  is  called  The  normaliza¬ 

tion  of  CiQ^^  is  specified  by  eq.  (5.31)  of  [2].  Proceeding  as  in  the  previous 
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12 

is  the  ratio  of  the  time-average  power  of 
the  ±x-traveling  TEio  wave  in  the  right-hand  rectangular  waveguide  to  the 
time-average  power  of  the  ^-traveling  TMqi  wave  in  the  circular  waveguide. 


3.6.1  The  Modal  Coefficients  in  the  Left-Hand 
Rectangular  Waveguide 

The  modal  coefficients  and  cire  given,  respectively,  by  eqs. 

(5.32)  and  (5.33)  of  [2].  The  block  of  statements  beginning  with  the  statement 
after  statement  206  and  ending  with  statement  69  puts  these  coefficients  in 
CIOUT  and  ClIN  and  then  writes  them  out.  In  this  block  of  statements. 


BET 

ARG 

CS 

SN 

SI 

V(KV) 

SA 


CIOUT 

ClIN 


(3.276) 

^\QXx 

(3.277) 

cos{^iqXx) 

(3.278) 

sin(Ao^i) 

(3.279) 

1  //^lo 

(3.280) 

Ix^lTE 

ri  *^10  ^ 

(3.281) 

//?I0  (  1  ^ 

V  00^  \2  (Ziyi'S®  cos(;3ioXi)  -t-isin(/9ioii))j 

(3.282) 

/^ITE- 

'-'10 

(3.283) 

^10 

(3.284) 

where  j3io,  ij,  and  are  given,  respectively,  by  eqs.  (2.5),  (5.12), 

(5.32)  and  (5.33)  of  [2].  In  (3.281),  is  the  first  element  of  Here, 

the  subscript  “10”  is  the  same  as  that  in  TEiq.  The  TEio  mode  is  the  first 
TE  mode.  Now,  resides  in  V(KTM  -|-  1)  because  the  KTM 

elements  of  precede  in  V. 
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3.6.2  The  Modal  Coefficients  in  the  Right-Hand 
Rectangular  Waveguide 

The  modal  coeflBcients  and  Cio^~  are  given,  respectively,  by  eqs. 

(5.36)  and  (5.37)  of  [2].^  The  block  of  statements  beginning  with  the  state¬ 
ment  after  statement  69  and  ending  with  statement  70  puts  these  coefficients 
in  C20UT  and  C2IN  and  writes  them  out.  In  this  block  of  statements, 


where  Z2,  and  are  given,  respectively,  by  eqs.  (5.21),  (5.36),  and 

(5.37)  of  [2].  In  (3.288),  is  the  first  element  of  Now, 

resides  in  V(K1  -|-  KTM  -I- 1)  because  the  KTM  elements  of 

the  KTE  elements  of  and  the  KTM  elements  of  i 

precede  in  V. 


3.7  The  Coefficients  of  the  Propagating 
Modes  in  the  Circular  Waveguide 

The  normalized  complex  coefficients  of  the  — z-traveling  TMJi,  TE'^,  and 
TEji  waves  in  the  circular  waveguide  are,  respectively,  C™*,  and 

of  eqs.  (6.88),  (6.96),  and  (6.99)  of  [2].  The  normalization  of  C™*, 

^There  is  a  misprint  in  eq.  (5.37)  of  [2].  The  left-hand  side  of  eq.  (5.37)  of  [2]  should 
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Cj-®*,  Jind  is  specified  by  eq.  (6.75)  of  [2].  The  right-hand  side  of 
this  equation  is  the  electric  field  that  would  exist  in  the  circular  waveguide 
if  the  transverse  electric  field  of  the  z-traveling  TMJ,  wave  a.t  z  =  L3  in 
the  circular  waveguide  were  ^^TMeogTMe  According  to  eq.  (B.2)  of  [1],  the 
quantity  that  multiplies  on  the  right-hand  side  of  eq.  (6.75)  of  [2]  is 

wlen  z  =  Z3.  According  to  eq.  (B.36)  of  [1],  the  quantity  that 
multiplies  on  the  right-hand  side  of  (6.75)  of  [2]  is  when 

z  =  L3.  From  eq.  (B.56)  of  [1],  the  quantity  that  multiplies  on  the 
right-hand  side  of  (6.75)  of  [2]  is  Since  the  transverse  electric 

fields  and  are  those  of  traveling 

waves  of  unit  time-average  power  in  the  circular  waveguide,  it  follows  that 
and  |C?Eo|2  are,  respectively,  the  ratio  of  the  time-average 
power  of  the  — ^-traveling  TMgj  wave,  that  of  the  —2-traveling  TEji  wave, 
and  that  of  the  —2-traveling  TEjj  wave  to  the  time-average  power  of  the 
2-traveling  TMqj  wave. 

DO  loop  55  accumulates  1,  and  in  CTME,  CTEE,  and 

CTEO,  respectively.  Here,  C™*,  and  are  given,  respectively,  by 
eqs.  (6.88),  (6.96),  and  (6.99)  of  [2].  After  execution  of  the  second  statement 
after  statement  55,  we  will  have 


CTME  = 

(3.292) 

CTEE  = 

(3.293) 

CTEO  = 

(3.294) 

CTMMS  =  -b  1|^ 

(3.295) 

In  (3.295),  Cq^‘  +  1  is  the  contribution  to  C™‘  due  to  the  magnetic  currents 
and  placed  on  the  inside  surfaces  of  the  conductors  that  close 

the  apertures  in  Fig.  2.  This  contribution  was  calculated  for  use  in  Section 
3.8.2. 


3.8  The  Time- Average  Power  of  the 

Propagating  Modes  in  the  Waveguides 

The  ratio  of  the  time-average  power  of  any  propagating  mode  to  the  time- 
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average  power  of  the  incident  TMo^  mode  is  the  square  of  the  magnitude  of 
the  normalized  complex  coefficient  of  the  propagating  mode.  In  addition  to 
the  2-traveling  TMJi  wave  in  the  circular  waveguide,  there  are  seven  propa¬ 
gating  modes: 

1.  The  — x-traveling  TEio  wave  in  the  left-hand  rectangular  waveguide. 

2.  The  x-traveling  TEio  wave  in  the  left-hand  rectangular  waveguide. 

3.  The  x-traveling  TEio  wave  in  the  right-hand  rectangular  waveguide. 

4.  The  —x-traveling  TEio  wave  in  the  right-hand  rectcingul<ir  waveguide. 

5.  The  —2-traveling  TMq^  wave  in  the  circular  waveguide. 

6.  The  —2-traveling  TEJ^  wave  in  the  circular  waveguide. 

7.  The  —2-traveling  TEJj  wave  in  the  circular  waveguide. 

Each  time- average  power  mentioned  in  Sections  3.8.1,  3.8.2,  3.8.3,  3.9, 
3.9.1,  and  3.9.2  to  follow  is  understood  to  be  relative  to  the  time-average 
power  of  the  2-traveling  TMqi  wave  in  the  circular  waveguide.  In  other 
words,  each  of  these  time-average  powers  is  tacitly  assumed  to  be  the  ratio 
of  that  to  the  time-average  power  of  the  incident  TM^i  wave  in  the  circular 
waveguide. 

3.8.1  The  Time- Average  Power  of  the  Propagating 
Modes  in  the  Rectangular  Waveguides 

The  time-average  power  of  each  propagating  mode  in  the  rectangular  wave¬ 
guides  appears  in  eq.  (5.49)  of  [2]  for  the  time-average  power  Pt  transmitted 
into  the  rectangular  waveguides.  The  five  statements  after  statement  81  set 


CIOUTS  = 

(3.296) 

ClINS  = 

(3.297) 

C20UTS  = 

(3.298) 

C2INS  = 

(3.299) 

PT  =  Ft. 

(3.300) 
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The  time-average  power  Pt  transmitted  into  the  rectangular  waveguides  is  the 
time-average  power  radiated  by  and  in  the  rectangular  waveguides 
because  there  are  no  other  sources  therein. 


3.8.2  The  Time- Average  Power  of  the  Propagating 
Moues  in  the  Circular  Waveguide 

The  time-average  power  of  each  propagating  mode  in  the  circular  waveguide 
appears  in  eq.  (8.1)  of  [2]  for  the  time-average  power  P,  reflected  in  the 
circular  waveguide.  The  four  statements  after  statement  82  set 


CTMES  =  (3.301) 

CTEES  =  (3.302) 

CTEOS  =  (3.303) 

PR  =  P,.  (3.304) 


If  the  magnetic  currents  — Mx  and  — were  somehow  forced  to  flow  in 
the  circular  waveguide  in  the  absence  of  the  incident  TMqj  mode  due  to  iP™**, 
then  the  total  time-average  power  of  the  propagating  modes  in  the  circular 
waveguide  would  be  Pm  given  by 

P,^  =  +  ip  +  +  IC-TEop.  (3.305) 

The  subscript  “rm”  on  Pm  indicates  that  it  is  the  time-average  reflected 
power  due  to  the  magnetic  currents.  The  fifth  statement  after  statement  82 
sets 


PRM  =  Pm-  (3.306) 

The  above  propagating  mode  power  Pm  is  the  time-average  power  that  the 
magnetic  currents  —Mi  and  —M2  would  radiate  if  they  existed  alone  in  the 
circular  waveguide. 

The  three  statements  after  statement  90  set 

BKAPLT(KA)  =  ka  (3.307) 

PTRAN(KA)  =  Pt  (3.308) 

PREFL(KA)  =  Pr .  (3.309) 
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The  one-dimensional  arrays  BKAPLT,  PTRAN,  and  PREFL  will  be  written 
out  after  exit  from  DO  loop  48. 

3,8.3  Conservation  of  Power 

The  sum  of  the  time-average  power  Pt  transmitted  into  the  rectangular  wave¬ 
guides  and  the  time-average  power  Pr  reflected  in  the  circular  waveguide 
should  be  equal  to  the  time-average  power  of  the  r-traveling  TMqi  wave  in 
the  circulcir  waveguide.  Since  Pt  and  Pr  are  meant  to  be  ratios  of  time- 
average  powers  to  the  time-average  power  of  the  r-traveling  TMqi  wave,  we 
should  have 


Pt  +  Pr  =  1.  (3.310) 

The  fourth  statement  after  statement  90  sets 

PTOTAL  =  Pt -b  Pr-  (3.311) 

In  the  sample  output  of  Section  2.2.2,  PTOTAL  is  indeed  unity.  This  verifies 
the  calculated  values  of  Pt  and  Pr.  Other  verifications  are  given  in  Sections 
3.9.1  and  3.9.2. 

3.9  The  Time- Average  Power  Radiated  by 
the  Magnetic  Currents 

In  this  section,  we  «issume  that  is  absent  so  that  there  is  no  z-traveling 
TMqj  wave  in  Fig.  2.  However,  we  cissume  that  the  magnetic  currents 
and  are  somehow  forced  to  flow.  The  time-average  power  radiated 

by  the  magnetic  currents  and  in  the  rectangular  waveguides  weis 
expressed  in  terms  of  the  time-average  power  of  the  propagating  modes  as 
indicated  by  (3.300)  where  Pt  is  given  by  eq.  (5.49)  of  [2].  The  time-average 
power  radiated  by  the  magnetic  currents  and  alone  in  the 

circular  waveguide  wjis  expressed  in  terms  of  the  time-average  power  of  the 
propagating  modes  cis  Pm  of  (3.05). 

Alternatively,  the  time-average  power  P  radiated  by  a  magnetic  current 
M.  on  a.  surface  S  is  given  by 

P  =  -Re|^^  (3.312) 
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where  M.*  is  the  complex  conjugate  of  M.,  H.  is  the  magnetic  field  due  to 
M.,  da  is  the  differential  element  of  surface  area,  and  “Re”  denotes  the  reid 
part.^  The  “Q”  in  indicates  that  there  is  no  electric  current  source. 

The  factor  kl{T)0Q^)  is  due  to  the  implicit  normalization  of  P.  This  factor 
is  the  reciprocal  of  the  time- average  power  of  the  z-traveling  TM^i  wave.  It 
normalizes  P  so  that  P  is  the  time-average  power  that  would  result  if  the 
time-average  power  of  the  z-traveling  TMqj  wave  were  unity. 


3.9.1  The  Time-Average  Power  Radiated  by  the 
Magnetic  Currents  in  the  Rectangular 
Waveguides 

In  this  section,  (3.312)  will  be  used  to  obtain  an  alternate  expression  for  the 
time-average  power  radiated  by  the  magnetic  currents  and  in  the 
rectangular  waveguides. 

Relabeling  the  V’s  and  the  M’s  in  (1.6)  {Vi,  V2,  •  •  • ,  Vki}  and  {Mi, 

MjjMs,  •  •  •  ,Mki}  relabeling  the  F’s  and  the  M’s  in  (1.7)  {Vki+i,  Vki+2, 
•••,Vk2}  and  {Mkh.i,Mki+2>---,Mk2}  where  K1  and  K2  are  given  by 
(3.10)  and  (3.52),  we  express  the  combination  of  M^^^  and  M^^^  of  (1.6) 
cind  (1.7)  as  the  single  magnetic  current  M  given  by 


K2 

j=i 

Since  Mj  is  real,  substitution  of  (3.313)  into  (3.312)  gives 


(3.313) 


(3.314) 


where  the  subscript  “fa”  on  Pta  indicates  that  Pja  is  the  transmitted  power 
calculated  by  means  of  the  alternative  method  whereby  (3.312)  is  used.  In 

(3.314), 


[yi  +  =  -jJ  Mi-  mMj)ds  (3.315) 

^In  our  “root-mean-square”  notation,  a  complex  phasor  such  as  M  indicates  the  time- 
dependent  quantity  \/2Re(Me^‘*'*l.  If  “peak-value”  notation  were  used,  M.  would  indicate 
the  time-dependent  quantity  RefMe^"*)  and  the  right-hand  side  of  (3.312)  would  be  di¬ 
vided  by  2. 
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where  the  integration  is  over  A\  if  i  <  Kl  Jind  over  j42  if  i  >  Kl.  If  j  <  Kl, 
then  HX^iM.j)  is  the  magnetic  field  due  to  in  the  left-hand  rectangular 
waveguide.  If  j  >  Kl,  then  H.{Q.,M.j)  is  the  magnetic  field  due  to  M.j  in  the 
right-hand  rectangular  waveguide.  The  “Q”  in  K{Q.,ALj)  indicates  that  there 
is  no  electric  current  source. 

Now,  the  matrix  -|-  Y^]  in  (3.315)  is  the  same  as  that  in  (1.32).  As 
stated  in  Section  3.3,  this  matrix  is  a  diagonal  matrix,  cind  the  product  of  its 

element  with  —jrj  resides  in  YREC(i).  Furthermore,  resides 

in  V(*).  Hence,  we  recast  (3.314)  as 

L  K2 

+  Y%i  (3.316) 

Poi  i=l 

where  “Im”  denotes  the  imaginary  part.  The  second  statement  in  DO  loop 
91  accumulates  in  YMM  the  summation  in  (3.316).  The  two  statements  after 
statement  91  set 

BKAB  =  ^  (3.317) 

Poi 

PTA  =  Pta.  (3.318) 

Now,  Pt  of  (3.300)  should  be  equal  to  Pta  of  (3.318).  Hence,  the  computer 
program  variables  PT  and  PTA  should  be  equad  to  each  other.  In  the  output 
listed  in  Section  2.2.2,  they  differ  by  two  units  in  the  seventh  significant 
figure.  This  discrepancy  can  be  attributed  to  roundoff  error  because  not  all 
calculations  were  done  in  double  precision.  Thus,  the  computed  vailue  of  Pt 
is  verified. 

3.9.2  The  Time- Average  Power  Radiated  by  the 

Magnetic  Currents  in  the  Circular  Waveguide 

In  this  section,  (3.312)  will  be  used  to  obtain  an  alternative  expression  for 
the  time-average  power  that  the  magnetic  currents  — and  — would 
radiate  if  they  were  the  only  sources  in  the  circular  waveguide. 

The  combination  of  and  —MP'^  is  expressed  cis  the  single  magnetic 

current  M.  given,  similar  to  (3.313),  by 

K2 

M  =  -  VjMj.  (3.319) 

i=i 
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Substitution  of  (3.319)  into  (3.312)  gives 


(3.320) 


where  the  subscript  ‘^rma”  on  Prma  indicates  that  Prma  is  the  reflected  power 
due  to  the  magnetic  current  calculated  by  means  of  the  alternative  method 
whereby  (3.312)  is  used.  In  (3.320), 


y?i  =  -  jj  (3.321) 

where  the  integration  is  over  /li  if  t  <  K1  and  over  if  i  >  Kl.  In  (3.321), 
is  the  magnetic  field  due  to  M.j  radiating  in  the  circular  waveguide. 
Now,  is  the  ij*’^  element  of  the  matrix  that  appears  in  (1.32).  We 
recast  (3.320)  as 


Prma  ~~ 


K2  (  K2  ^ 

I  (iKe"""'")'  E  (3-322) 


Replacing  Y^j  by  [Y^  +  Y^  +  Y%  -  [Y^  +  Y%  in  (3.321),  we  obtain 


I  K2 

ft...  =  -ft.  -  (->^<'"™'^)}  (3-323) 

where  Pta  is  given  by  (3.316)  and 

K2  f  I 

|-j7/  [r'  +  +  r"] . .  j .  (3.324) 

Noting  that  the  right-hand  side  of  (3.324)  is  the  product  of  with 

the  element  of  the  left-hand  side  of  (1.32),  we  see  that  /,  of  (3.324)  is  the 
element  of  the  column  vector  on  the  right-hand  side  of  (1.32).  As  indicated 
in  the  paragraph  containing  (3.146),  was  put  in  TI(t). 

The  third  statement  in  DO  loop  91  accumulates  in  YME  the  summation 
in  (3.323).  The  third  statement  after  statement  91  sets 


PRMA  =  Prma 


(3.325) 
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where  Pma  is  given  by  (3.323).  The  fourth  statement  after  statement  91 
writes  out  PTA  and  PRMA. 

Now,  Prm  of  (3.306)  should  be  equal  to  Prma  of  (3.325).  Hence,  the  com¬ 
puter  program  V2n’iables  PRM  and  PRMA  should  be  equal  to  each  other.  In 
the  output  listed  in  Section  2.2.2,  they  differ  by  only  one  unit  in  the  seventh 
significant  figure.  Thus,  the  computed  value  of  Pm  is  verified.  The  verifica¬ 
tion  of  Prm  gives  some  verification  of  P,  because  is  the  contribution  to  P, 
due  to  the  magnetic  current.  Note  that  there  are  three  contributions  to  Pr". 
one  due  to  the  —  z-traveling  TMqi  wave,  one  due  to  the  magnetic  current, 
and  one  due  to  to  the  interaction  between  the  — z-traveling  TMqi  wave  zmd 
the  magnetic  current. 


3.10  The  Tangential  Electric  Field  in  the 
Apertures 

The  control  statement  after  statement  93  either  allows  execution  to  continue 
on  to  the  second  statement  after  statement  93  or  sends  execution  to  state¬ 
ment  48,  depending  on  the  value  of  KE3(KAE).  See  the  last  paragraph  in 
Section  2.1.1.  If  executed,  the  block  of  statements  beginning  with  the  second 
statement  after  statement  93  and  ending  with  the  statement  before  state¬ 
ment  48  calculates  and  writes  out  values  of  the  (f>-  and  z- components  of  the 
electric  field  in  the  left-hand  and  right-hand  apertures.  See  the  paragraph 
containing  (2.31). 

In  DO  loop  105,  E3A1P(J)  and  E3A2P(J)  are  set  to  zero.  Later, 

IpTMe+i  lirTMe+i  ’ 

1.^01  Inna  1^1  Inns 

given  by  eq.  (7.13)  of  [2]  with  7  =  1  and  7  =  2,^  will  be  accumulated  in 
E3A1P(J)  and  E3A2P(J),  respectively.  Here, 

■Aj  ’  =  1) 

^There  is  a  misprint  in  eqs.  (7.13)  and  (7.14)  of  [2].  The  quantity  should  be 

replaced  by  “/?o””  in  both  equations. 


(3.326) 

(3.327) 
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Substituting  for  <i>  and  x<,/a  of  (3.143)  for  (sin^o)/<Ao  in  e<l-  (7.13)  of  [2] 
with  7  =  1,  interchanging  the  order  of  summation,  and  placing  upper  limits 
on  the  summation  indices  p  and  we  obtain 


I  E,TMe+ 1 

Imis 


E 

p=0 

p+?/o 


where 


The  fifth  statement  in  DO  loop  105  sets 

PHIl(J)  =  (3.331) 


Equation  (3.328)  is  written  with  the  understanding 
tion2d  to  is  to  be  omitted  when  p  =  0  or  9  =  0. 

of  for  <i>  in  eq.  (7.13)  of  [2]  with  7  =  2  yields 


that  the  term  propor- 
Similarly,  substitution 


I  r>TMe+  I 
|£4)1  Inna 


NUAX-1 


(  X  riHAA- 

t)  S 


E 

p=0 
P+9^0 


/1e£i 

V  4  Up,V 


tThe  ranges  of  values  of  p  and  q  are  taken  to  be  the  same  as  the  respective  ranges  of 
values  of  m  and  n  in  (3.5). 
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where 


(2)  ^  (J  -  1)^ 
NPHI  -  1  ■ 


(3.333) 


The  term  should  be  omitted  from  (3.332)  when  p  =  0  or  q  =  0.  The 
sixth  statement  in  DO  loop  105  sets 

PHI2(J)  =  (3.334) 


In  DO  loop  106,  E3A1Z(J)  and  E3A2Z(J)  are  set  to  zero.  Later, 

l£jr-^U  ' 

given  by  eq.  (7.14)  of  [2]  with  7  =  1  and  7  =  2,  will  be  accumulated  in 
E3A1Z(J)  and  E3A2Z(J),  respectively.  Here, 

Substituting  for  z  in  eq.  (7.14)  of  [2]  with  7=1  and  placing  the  same 
upper  limits  on  p  and  q  as  in  (3.328),  we  obtain 


gj-^'K’r.zS'")  _  ,  ““‘K'-'  US  (±.\ 

’  h  V  4  \k„b) 

P+I^o 


■  pa 

•  sm  —  cos 
2 


(3.336) 


where 

(1)  _  (J-l)7r 

^  NZ-1 ■ 

The  fourth  statement  in  DO  loop  106  sets 

Z{J)  =  zi". 


(3.337) 


(3.338) 
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The  terai  should  be  omitted  from  (3.336)  when  p  =  0  or  9  =  0. 
Similarly,  substitution  of  for  z  in  eq.  (7.14)  of  [2]  with  7  =  2  yields 

£<■*^>(0,4'**)  _  ,  /S  (I 

l&“Vnn.  ‘  h  p4s  V  4  [k„b 

l>+?#0 

•  sin  ^  cos  .  (3.339) 

The  term  should  be  omitted  from  (3.339)  when  p  =  0  or  g  =  0. 
Statement  155  and  the  statement  after  it  set 


ARG  =  (3.340) 

SA  =  Sa  (3.341) 

where  Sa  is  given  by  (3.329).  The  second  and  third  statements  in  DO  loop 
136  set 

SINP(J)  =  5„sin^  (3.342) 

SINQ(J)  =  (Sa)  sin  ^  (3.343) 

where 

p  —  q  =  3  —  1.  (3.344) 

Separate  indices  q  and  p  were  used  in  (3.342)  and  (3.343)  because  the  right- 
hand  side  of  (3.342)  is  intended  to  be  a  factor  common  to  both  (3.336)  and 
(3.339)  and  the  right-hand  side  of  (3.343)  is  intended  to  be  a  factor  common 
to  both  (3.328)  and  (3.332). 

In  nested  DO  loops  101  and  104,  the  qp  term  in  each  of  (3.328),  (3.332), 
(3.336),  and  (3.339)  is  taken  into  account  for 

9  =  Q-1 
p  =  P-l. 
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(3.345) 

(3.346) 


The  third  and  seventh  statements  in  DO  loop  101  set 

FQIC  =  ^  (3.347) 

c 

SINQQ  =  (5,)  sin  ^ .  (3.348) 

The  subscripts  jTM,  JTM2,  JTEl,  and  JTM2  are  calculated  inside  DO  loop 
104  so  that 

V(JTM)  =  (3.349) 

V(JTM2)  =  (3.350) 

V(JTEl)  =  (3.351) 

V(JTE2)  =  (3.352) 

Before  execution  of  the  ninth  statement  in  DO  loop  104, 

BMNJ=(/S)(j^).  (3.353) 

The  ninth  through  seventeenth  statements  in  DO  loop  104  set 

SINPP  =  5a  sin  ^  (3.354) 

it 

-  im  (6)  (t) 

BMNJQ  =  (/S)  (^)  (3,356) 

BMNJPP  =  (5.)  (/f)  (^)  (^)  sin  f  (3.357) 


BMNJQQ  =  (SJ  (^)  (^)  (f )  sin  f  (3.358) 

VMM  =  (S.)  (^)  (yf )  (^J  (f ) 
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YEM 


YME 


YEE  = 


(3.359) 


(3.360) 


(3.361) 


(3.362) 


If  the  above  values  of  YMM,  YEM,  YME,  and  YEE  were  multiplied  by 
cos  M'>).  cos  ,  cos  ,  and  cos  (92: ,  respectively,  then  they 

would  be  the  term  in  (3.328),  the  term  in  (3.336),  term  in 
(3.332),  and  the  term  in  (3.339). 

The  eight  statements  before  statement  134  account  for  the  terms 
in  (3.328)  and  (3.336)  and  the  terms  in  (3.332)  and  (3.339).  Since 
these  terms  are  absent  when  p  =  0  or  g  =  0,  the  eight  statements  before 
statement  134  are  not  executed  when  p  =  0  or  g  =  0.  The  six  statements 
before  statement  134  set 


BMNJPQ  =  (5.)  (f )  {^)  (^)  (^)  .in  f  (3.363) 

BMNJQP  =  (5.)  (^)  (f )  .in  f  (3.364) 

VMM  =  -(..)  (I)  (yf )  (^J  {  (?) 

(3.365) 


YEM  =  (5a) 


ylTM 


) 
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YME  = 


YEE  = 


(3.366) 


(3.367) 


(3.368) 


If  the  above  values  of  YMM,  YEM,  YME,  and  YEE  were  multiplied  by 
cos  cos  j  cos  ,  and  cos  >  respectively,  then  they 

would  be  the  pq  terms^  in  (3.328),  (3.336),  (3.332)  and  (3.339),  respectively. 

The  first  statement  in  DO  loop  135  adds  the  pq  term  in  (3.328)  to 
E3A1P(J).  The  second  statement  in  DO  loop  135  adds  thep^  term  in  (3.332) 
to  E3A2P(J).  The  second  statement  in  DO  loop  148  adds  the  pq  term  in 
(3.336)  to  E3A1Z(J).  The  third  statement  in  DO  loop  148  adds  the  pq  term 
in  (3.339)  to  E3A2Z(J).  Thus,  upon  exit  from  nested  DO  loops  101  Md  104, 


E3A1P(J)  = 


E3A1Z(J)  = 


E3A2P(J)  = 


E3A2Z(J)  = 


I  c»TMe+  I 
liitoi  Irms 

I  r»TMe+ 1 
|£lo1  Irms 

I  rTMe+  I 
\£^)1  Irms 

I  r’TMe+  I 

|ii01  Irms 


(3.369) 


(3.370) 


(3.371) 


(3.372) 


^The  pq  term  in  any  one  of  these  equations  is  the  right-hand  side  of  the  equation 
without  the  summation  signs. 
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The  first  and  second  statements  in  DO  loop  137  set 


E3A1PS(J)  = 


E3A2PS(J)  = 


I  r>TMe+  I 
liloi  |nn« 

The  first  and  second  statements  in  DO  loop  138  set 


E3A1ZS(J) 


E3A2ZS(J)  = 


>TMe+| 


TMe+  I 


3.11  Listing  of  the  Main  Program 


(3.373) 

(3.374) 


(3.375) 

(3.376) 


IMPLICIT  REAL‘8  (A-H,0-2) 

CONMOH  /NODES/PC . BKM2 .KTN .KTE,MM(50) , BNI ( 100) . BN12 ( 100) 

COMMOI  /PI/PI 
COMMOI  /IMAZ/INAX 
COMMOI  /BES/ZM,SMAX 

COMMOI  /PHI/BZ,BZ5.PMAZ,R.SGR.PH1(100) ,PH2(100) .PH3(100) , 
1PH4(100) 

COMMOI  /DGI/S , BKA2 . L3 , C , CS , PIS , D3 (50) . 04 ( 50 ) , PGC 
C0MPLEZ*16  ZL1,ZL2,U,BK0.SA,YTE,YTM,DTM(50),DTMI,DTE(50),DTEI 
C0MPLEZ«16  D3.D3I,Z1.Z2.Z3.Z4.Z5.S1.S3.S4,S5 
C0MPLEZ*8  E3A1P(100),E3A1Z(100),E3A2P(100),E3A2Z(100) 

C0MPLEZ*8  YMM,YEM,YME,YEE,Y(24336),TI(156),V(156),VI,CVTME(156) 
C0MPLEZ*8  CVTEE(156) , CVTE0( 156) , CTME , CTEE , CTEO , C lOUT , ClII , C20UT 
CDNPLEZ*8  C2II,YREC(1S6) 

REAL*8  L1,L2,L3,ZJ(200),ZJP(200),GTM(50),GTE(S0) 

REAL*8  TMP(50) .TMM(50) ,TEP(50) ,TEM(50) .DQTMCSO) ,DQTE(50) 

REAL*4  PHIl ( 100) , PHI2 ( 100) , Z( 100) 

REAL*4  PTRAB(IOO) ,PREFL(100) ,BKAPLT(100) 

REAL*4  CIOUTS , ClIIS , C20UTS , C2IIS , PT, CTMES . CTEES . CTEOS , PR . PTOTAL 
REALM  SIIP(100),SIiq(100),E3AlPS(100),E3A2PS(100).E3AlZS(100) 
REAL*4  E3A2ZS ( 100) , PTMS , PRECMS , PTMR, BKAG , SIIQQ , SIIPP . BMIJP 
REAL*4  BMHjq , BNIJPP .BNIJOQ. BNIJPQ . BMIjqP 

IKTEGER  R,Rl,S,SMAZ,P,PMAZ,Pl.P2,P3,q,qi,PTM.PTE,qTM,qTE,IPS(158) 


100 


IITEGER  qPI.KE3(101) 

OPEI (UIIT=20 , FILE= ' II . DAT  * . STATUS= 'OLD  * ) 

OPEI (UIIT=21 , FILE= ' OUT . DAT' , STATUS* ' OLD ' ) 
READ(20,10)  B.C.L1,L2.L3.BKM.XN.ZL1.ZL2 

10  F0IIMAT(4D14.7) 

VRITE(21.11) 

11  FORMAT('P  C,L1.L2.L3.BKM,XM,ZL1,ZL2') 

WRITE(21.10)  B.C.L1.L2.L3.BKM.ZN.ZL1.ZL2 
READ(20 . 144)  KAM.BKA0,DBKA.KE3M.1PHI.1Z 

144  F0LMAT(I4.2D14.7.3I4) 

VRITE(21 . 145)  KAM.BXA0,DBKA.KE3M.BPHI.1Z 
146  F0RMAT('KAM=',I4, BKA0=',D14.7. ' ,  DBKA=' .D14.7/ 
l'KE3M=',I4,',  IPHI='.I4,'.  ^=',14) 

IIEAD(20 . 146)  (KE3(I)  ,  1*1  ,KE3M) 

146  F0IIMAT(1SI4) 

tfRITE{21 . 147) (KE3(I) . 1*1 ,KE3M) 

147  F0RMAT('KE3'/(16I4)) 

PI*3. 1415926S368979D-t-0 
BC=B/C 

PC*PI*BC 
BKM2*BKM*BKM 
CALL  NODES 

WR1TE(21 , 102) (MM(I) , 1*1 , IMAX) 

102  F0RMAT(10I4) 

K1*KTM+KTE 

WRITE(21,153)  KTM.KTE.Kl 
153  F0RMAT(’KTM=',I4,',  KTE=',I4,',  K1=',I4) 
IF(INAX.GT.O)  GO  TO  115 
VR1TE(21,116) 

116  FORMATC'BKM  IS  TOO  SMALL') 

STOP 

115  CALL  BESII 
PI2=PI*2.D+0 
PIBC=PI*BC 
PIS=PI*.5D+0 
KAE*1 

DO  48  KA*1.KAN 
BKA*BKAO-(-  (KA- 1 )  *DBKA 
BKA2=BKA«BKA 

IF(BKA.GT.2.40482556D+0)  GO  TO  94 
WRITE(21,9S) 

95  FORMATC'BKA  IS  TOO  SMALL') 

STOP 

94  IF(BKA.LT.3.05423693D+0)  GO  TO  96 
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WRITE(21,97) 

97  FORMATC'BKi  IS  TOO  LARGE*) 

STOP 

96  IF(C.LT.B)  GO  TO  98 
WRITE(21.99) 

99  FORNAT(*C  IS  lOT  LESS  THAI  B') 

STOP 

98  BKB=BKA*B 
HRITE(21.150}  BKB 

150  F0RMAT(*BKB=*.E14.7) 

IF(BKB.GT.PI)  GO  TO  110 
HRITE(21.111) 

111  FORMATCBKB  IS  TOO  SMALL*) 

STOP 

110  IF(BKB.LT.PI2.AID.BKB.LT.PIBC)  GO  TO  112 
HRITE(21,113) 

113  FORNAT(*BKB  IS  TOO  LARGE*) 

STOP 

112  BKB2=BKB*BKB 
BKR=1 .04-0/BKB 
U=(0.D+0.1.D+0) 

BKU=-BKR*U 

BS=B*.SD+0 

BXS^DASIKBS) 

BX=2.D+0*BX5 

XB=1.D+0/BX 

X1=L1/B-XB 

X2=L2/B-XB 

JTE=0 

JTM=0 

DO  13  q=l.IMAX 
P2=l 

IFCq.EQ.l)  P2=2 
P3=MM(q) 

DO  14  P=P2,P3 

JTE=JTE+1 

JTE1=JTE+KTM 

JTE2=JTE1+K1 

GAM2=BMB2(JTE)-BKB2 

IF(P.IE.2.0R.q.IE.l)  GO  TO  IS 

BET=DSqRT(-GAM2) 

A1=BET*X1 

CA=DC0S(A1) 

SA=DSIN(A1)*U 
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S1=BET*BKU 

YREC(JTE1)=(CA+ZL1*SA)/(SA+ZL1*CA)*S1 

A2»BET*X2 

CA=DC0S(A2) 

SA=DSI1(A2)*U 

YREC ( JTE2) s (CA+ZL2*SA) / (SA+ZL2*CA) *S1 
GO  TO  17 

16  GANsDSqRT(GAN2) 

YTE=-GAM*BKR 

yREC(JTEl)=YTE 

YREC(JTE2)sYTE 

17  IF(P.Eq.l.OR.q.Eq.l)  go  to  14 
YTM=BKB/GAM 

JTMsJTM+l 
JTM2=JTM+K1 
YREC(JTM)=YTM 
YREC(JTM2)=YTM 
14  COITIIUE 
13  COITIIUE 
K2-K1*2 

WRITE(21 , 100) (YREC( J) . J=1 ,K2) 

100  F0RI!AT('YREC'/(4E14,7)) 

CS=C*.5D+0 

ZSS=l.D+0/CS 

PMAX-HN(l) 

XZ=B/BX 

TZTM=8. *BX5*DSqRT(BC/PI) 

TZTE=TZTM/BC 

TA=PI2/BKA 

Sq2=l .D+0/DSqRT(2.D+0) 
TCl=DSqRT(PI*BC) 

TCS*TC1/Sq2 

TC1*TC1*BKA 

SI1=B5 

CSl*DSqRT(l.D+0-B6*B5) 

K3sK2*Kl 
DO  12  IY=1,K3 
Y(IY)=0. 

12  COITIIUE 
SGR=-l.D+0 
00  19  R=1.S00 
SGR=-SGR 
R1=R-1 
RS»R1*R1 
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CALL  BES(R.ZJ,XJP) 

IF(SM1I.GT.200)  STOP  60 
IFCSMAX.Eq.O)  GO  TO  2S 
CALL  PHI 
DO  20  Ssl.SNAZ 

CALL  DGI(l,XJ,IXTll,ITM.GAllTM,TMP,TI0!,DTM,GTM,DQTIf,GCSTM,GC2TH, 
IZEETM ,ZZTM , ZOETM, ZOOTM) 

CALL  DGH2,XJP.XXTE,ITE,GAMTE,TEP,TEII,DTE,GTE,DQTE.GCSTE,GC2TE 
IZEETE , ZZTE , ZOETE . ZOOTE) 

XR=XXTE-IIS 

W2»-RS/XR*GAMTE 

V6sXZ*XXTE 

H6=W6/XR 

W3=R1«H6 

V5»US*V6 

H6»ZSS/XXTE*W6 

Hl=BKA2/GAirni 

HS»U6/GANTE 

IF(Rl.IB.O)  GO  TO  46 

Hl=«l*.6D+0 

H5aW6*.SD+0 

V6sVd*.SD-t-0 

46  IF(Rl.GT.l,OR.S.GT.l)  GO  TO  68 
IF(Rl.Eq,l)  GO  TO  71 
MTMsO 
MTEsO 

DO  29  l=l.INAX 
M2=l 
11=1-1 
F11=I1 

T1TM=TZTM*FI1 

TITE=TZTE 

IF(Il.IE.O)  GO  TO  76 
M2=2 

TITE=TITE*Sq2 
76  M3=MM(I) 

DO  52  M=N2,N3 
M1=II-1 

IF(Ml.IE.2*(IIl/2))  GO  TO  66 
IF(Il.Eq.O.OR.Ml.Eq.O)  GO  TO  66 
MTM=MTM+1 
TI(MTM)=0. 

J=MTM+K1 

TI(J)=0. 
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6«  MTE=irrB+l 
J=MTE+KT1I 
TI(J)=0. 

J=J+K1 

TI(J)=0. 

GO  TO  52 
65  MTE=irrE+l 

FIsGTMCD/BMKHTE) 
IFdl.EQ.O.OR.Nl.Eq.O)  GO  TO  67 
imi=irm+i 
FM1=M1 

Sl=-TITM/Fm*Fl*U 

T1(MTM)=SA 

J=imi+Kl 

TI(J)=SA 

67  SAa-TITE*Fl*U 
J=IITE+KTM 
TI(J)=SA 
J=J+K1 
TI(J)=SA 
52  COITIIUE 
29  COITIIUE 
TC2=TCl/GAim! 

MTM*0 

MTE=0 

DO  77  I=1,IMAX 
M2=l 
11=1-1 
M3=im(i) 

TC3=TC2*GTM(I) 

IF(Il.IE.O)  GO  TO  114 
M2=2 

TC3=TC3>*Sq2 
114  DO  78  N=N2.N3 
1!TE=MTE+1 

TC4=TC3/BMI(MTE)*PH2(M) 

«1=M-1 

IF(Ml.Eq.O)  TC4=TC4*Sq2 
iF(ii.Eq.o.OR.m.Eq.o)  go  to  79 

MTH=MTM+1 

TC4I=H1*TC4 

CVTME(MTM)=TC4M 

J=MTM+K1 

CVTME(J)=TC4M 


105 


79  TC4M=M1/BC*TC4 
J=IITE+KT1I 
CVTME(J)=TC4M 
J=J+K1 

CVTME(J)=TC4M 
78  COITIIUE 
77  COITIIUE 
GANOl^ANTN 
GO  TO  68 

71  TC2=TC5*DSqRT(GlMTE/(GlM01*XR)) 
TC6=XZ*lXTE/GAJrrE 
lfTN=0 
irrE=o 

DO  80  I=1.IM1X 

M2*l 

IlaI-1 

TC3*TC2 

IF(Il.IE.O)  GO  TO  16 
N2=2 

TC3»TC3*Sq2 
16  M3=in!(I) 

TC7»TC3*TC6*G4(I) 

TC3*TC3*GTE(I) 

FI1»I1 

DO  73  M«N2.N3 
l!l=M-l 
75  IITE=IITE+1 
BNIM-6NI(MTE) 

TC4=TC3/BMIM 
TC8aTC7/BMIM 
IF(Ml.IE.O)  GO  TO  74 
TC4=TC4*Sq2 
TC8=TC8*Sq2 
74  PH1M=PH1(M) 

PH2NsPB2(M) 

PH3M=PH3(M) 

PH4M=PH4(M) 

PAG1=TC4*(PH1M*CS1-PH2M*SI1) 
PAG2=TC4* ( PH2M*CS 1+PH1M*SI1 ) 
PAG3=TC8* ( PH3M*CS 1-PH4M*SI1 ) 
PAG4®TC8* ( PB4M*CS 1+PH3M*SI1 ) 
F111B=M1/BC 

IFdl.Eq.O.OR.Ml.Eq.O)  GO  TO  72 
MTM=MTM+1 
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PAG5sPAG1*FI1-I-PAG4*FM1B 

PAG6sPAG2*Fll-PAG3*F!!lB 

CVTEE(imi)3PAG5 

CVTE0(imi)«PAG6 

CVTEE(J)=PAGS 

CVTE0(J)=-PAG6 

72  PAG6=PAGl*FmB-PAG4*FIl 
PAG63PAG2«FII1B-i-PAG3*FI1 
J=1ITE+KTM 
CVTEE(J)=PAGS 
CVTE0(J)=PAG6 

J=J+K1 

CVTEE(J)=PAGS 

CVTE0(J)=-PAG6 

73  COITIIUE 
80  COITIIUE 
68  ITN-0 

ITE>0 

DO  21  I-I.INAX 

M2*l 

11=1-1 

IF(Il.EQ.O)  M2=2 

M3=I0!(I) 

qTM=0 

QTE=0 

FI1B=I1«BC 

IE0=l+Il-2*(Il/2) 

GO  TO  (18,51),  ITM 
18  TMMI='nM(l) 

THPIalEPd) 

DTMI=DTM(I) 

GO  TO  83 

51  DQTMIsDQTMCl) 
TMl=GCSTM*DqTlII 
TM2=GC2TM*DqTMI 

83  GO  TO  (84,85),  ITE 

84  TEMI=TEM(I) 

TEPI=TEP(I) 

DTEI=DTE(I) 

D3I=03(I) 

GO  TO  86 

85  oqTEisoqTEd) 
TEl=GCSTE*DqTEI 


TE2=GC2TE*DqTEI 
FIl-ll 
PlGsFll*PGC 
86  DO  22  Qsl.nUX 
P2®1 

qi*Q-i 

iF(qi.Eq.o)  P2»2 
P3-im(q) 

U8>qi*FllB 

iqE0siE0-t-qi-2*(qi/2) 

iEqq»2 

iF(ii.Eq.qi.iiD.qi.iE.o)  iEqq=i 
qpi-2 

iF(qi.Eq.o.AiD.ii.Eq.o)  qpi=i 
GO  TO  (31.32),  ITM 

31  lM=ll-qi 
ip=ii+qi 
Tiaiq=TNN(q) 

Tiipq=TMP(q) 

FTM=FIY(IP , TMPI .TMMO) -FIY(IM .TMMl ,-TMMq) 
1 -FXY ( IP , TMmr , TMPq ) +FXY ( IH ,TMPI , -TMPq ) 
Zl=Wl*(FTM+GTM(q)*DTMI) 

GO  TO  47 

32  GO  TO  (46.107,117),  iqEO 
45  GO  TO  (118,119),  qPI 

118  ZlRsZZTN 
GO  TO  120 

119  ZIR-ZEETN 
GO  TO  120 

107  Z1R*Z0ETM 
GO  TO  120 
117  Z1R=Z00TM 

120  ZlR=ZlR*TNl*DqTN(q) 

GO  TO  (121,122),  lEqq 

121  Z1R*Z1R-TM2 

122  Z1R»-W1*Z1R 

47  GO  TO  (36,37)  ITE 
36  GTEq-GTE(q) 

G4q=G4(q) 

iM*ii-qi 

ip=ii+qi 

TENq=TEM(q) 

TEPq*TEP(q) 

Fl=FXY(IM.TEMI.-TEMq) 
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F2=FIY(IP.TEPI,TEMQ) 

F6*FXY( IP , TEMI . TEPq) 

F7*FIY(IM . TEPI , -TEPq) 

F8=F2-F1 

F9=F2+F1 

F1»F6-F7 

F2=F6+F7 

FTE=F8-F1 

F3aF9+F2 

F4aF8+Fl 

F5»F9-F2 

Z23U2* ( FTE+GTEq*DTEI ) 
Z3aU3*(F3-i-GTEq*D3I) 

Z4=-W3* (F4+G4q*DTEI) 
Z5-VS*(F54-G4q*D3I) 
IF(ll.Eq.qi.AID.Il.lE.O)  ZS=V6*ZS 
GO  TO  49 

37  GO  TO  (123.124,126),  iqEO 

123  GO  TO  (126,127),  qPI 

126  ZRaZZTE 
GO  TO  128 

127  ZRaZEETE 
GO  TO  128 

124  ZR=ZOETE 
GO  TO  128 

125  ZRsZOOTE 

128  ZR=ZR*TEl*DqTE(q) 

Z2R»ZR 

GO  TO  (129,130),  lEqq 

129  Z2R»Z2R-TE2 

130  Z3R-PIG«Z2R 
Fqi=qi 
pqG=Fqi*PGC 
Z4R»PqG*Z2R 
Z5RsPIG*PqG*ZR 

GO  TO  (131,132),  lEqq 

131  Z5R»ZSR-»-TE2 

132  Z2R=tf2*Z2R 
Z3RsV3*Z3R 
Z4R=V3*Z4R 
Z5Ra-W5*Z5R 

GO  TO  (133,49)  lEqq 

133  Z5R=W6-fZ5R 

49  IF((ITM+ITE).IE.3)  GO  TO  87 
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GO  TO  (63,S4).nM 

53  Z2»Z2R 
Z3«Z3R 
Z4SZ4R 
Z6»ZSR 
GO  TO  87 

54  Z1»Z1R 
87  I!TM=rni 

1ITE=1TE 

DO  23  M=M2.N3 

KMlsl 

IF(Il.Eq.O.OR.Nl.Eq.O)  GO  TO  26 

KM|s2 

MTHsMTM+l 

26  irrE=MTE+l 
V93Nl*qi 
FM1B*M1/BC 
TBaTl/BKI(MTE) 

PTMaqTM 

PTE=qTE 

DO  24  P=P2,P3 

KPq=l 

PlaP-1 

iF(qi.Eq.o.oR.pi.Eq.o)  go  to  27 

KPq=2 

PTM=PTI!+1 

27  PTE=PTE+1 
U10=I1*P1 
W11=P1*FM1B 
T1=TB/BMI(PTE) 

IF(Ml.Eq.O)  Tl=Tl*Sq2 
IF(Il.Eq.O)  Tl=Tl*Sq2 
IF(Pl.Eq.O)  Tl=Tl*Sq2 
iF(qi.Eq.o)  Ti=Ti*sq2 
PH1P=PH1(P) 

PH2P=PH2(P) 

PH3P=PH3(P) 

PH4P=PH4(P) 

KB=l+(KMI+KPq)/4 

KM=(PTM-1)*K2 

KE1=KTM+MTE 

KMM=KM+MTM 

KEM=KM+KE1 
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KE2*(KT1!+PTE-1)*K2 

KNE=KE2-»^MTN 

KEE=KE2-^KE1 

K»0 

NJsN 

DO  28  Jsl.2 
PHIMJ-PBI(NJ) 

PH2NJ-PH2(NJ) 

PH3NJ=PH3(NJ) 

PH4MJ-PH4(NJ) 

PiGlsPH2P*PH3NJ-PHlP*PH4MJ 

PiG2-PH2P«PH2NJ-*-PHlP*PHlMJ 

PAG3»PH4P«PH1MJ-PH3P«PH2MJ 

PiG43PH4P*PH4MJ+PH3P*PH3MJ 

IF(J.EQ.l)  GO  TO  30 

PAG1=-P1G1 

PAG4»-PAG4 

30  IF((nE+ITM).Eq.4)  GO  TO  66 
50  SlsPAG2*(Zl-Z2) 

S3=PAG1*Z3 
S4sPAG3*Z4 
S6»PAG4*Z5 
64  GO  TO  (33,38).  KB 

38  IMMsKMN^K 

YMM=Tl*(W8*Sl+H9*S3-W10*S4-Vfll*S5) 

Y(IMM)=Y(IMM)+Yim 

33  GO  TO  (34.39},KPq 

39  lEN-KEM-t-K 

YEI!=T1*(W9*S1-W8*S3-W11*S4+W10*S5) 

Y(IEM)=Y(IEM)+YEM 

34  GO  TO  (3S.40).Krai 

40  IME-KNE-i-K 

YME=T1*(W10*S1+WH*S3+W8*S4+W9*SS) 

Y(IME)=Y(IME)+YI!E 

35  IEE=KEE-^K 

YEE=T1*(W11*S1-W10*S3+W9*S4-W8*S5) 

Y(IEE)=Y(IEE)+YEE 

GO  TO  57 

56  S1R=PAG2«(Z1R-Z2R) 

S3R=PAG1*Z3R 
S4R=PAG3*Z4R 
S5R-PAG4*Z5R 
GO  TO  (58,59),  KB 
59  IMN=KI«-»’K 
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Y10I®T1*(W8*S1R+W9*S3R-«10*S4R-W11*SSR) 
Y(IMII)=Y(IM1!)+Yim 
58  GO  TO  (60,61),  KPQ 

61  lENsKEN-i-K 

YEMsTl* (W9*S 1R-W8*S3R-W1 1*S4R+W10*SSR) 
Y(IEM)=Y(IEM)+YEII 
60  GO  TO  (62,63),  KMl 
63  INE-KME-t-K 

YIIE*Tl*(W10*SlR+«ll*S3R+tf8*S4R+«9*SSR) 

Y(IME)=Y(IME)+YME 

62  IEE=KEE>K 

YEE=Tl*(Wll*SlR-W10*S3R+W9*S4R-tf8*SSR) 
Y(IEE)=Y(IEE)+YEE 
57  K=K1 

NJ»N4-PMAZ 
28  COITIIUE 

24  COITIIUE 
23  COITIIUE 

QTM=PTM 
QTE^PTE 
22  COITIIUE 
ITKsMTK 
ITE-MTE 
21  COITIIUE 
20  COITIIUE 
19  COITIIUE 
VRITE(21,44) 

44  FORMAT('R  IS  TOO  LARGE') 

STOP 

25  IF(R.IE.l)  GO  TO  41 
URITE(21,42) 

42  FORMAT  ('XM  IS  TOO  SMALL') 

STOP 

41  K4=K1*K2 
J1=0 

DO  89  J=1,K1 

DO  88  1=1, K1 

J1=J1+1 

J2=J1+K1 

J3=J1+K4 

J4=J3+K1 

Y(J3)=Y(J2) 

Y(J4)=Y(J1) 

88  CONTINUE 
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J1=J1+K1 
89  corrinTE 
K6=K2+1 
IY=1 

DO  43  I31.K2 
Y(IY)»Y(IY)+Y11EC(I) 

IY*IY+K5 
43  COmiUE 

WRITE(21 .204) (TI(I) . 1=1 .K2) 

204  F0RIUT('TIV(4E14.7)) 

CALL  DECQNP(K2.IPS,Y) 

CALL  S0LVE(K2.IPS.Y.TI.V) 
WRITE(21.206)(V(I).I=1.K2) 

206  F0RI(AT(*VV(4E14.7)) 

BET=DSqRT  (  BKB2-BIII2  ( 1 )  )  /B 
ARG=BET*(L1-X2) 

CS=DCCIS(ARa) 

S1=DSII(ARG) 

KV=KTM+1 

SI- . 6D+0*DSqRT(BET/GAM0l ) 
SA=S1*V(KV)/(CS*ZL1+U*SB) 
C10UT=(ZLl+l.D+0)*DCMPU(CS.SI)*SA 
C1II=(ZL1-1 . D+0)*DCMPLX (CS , -SI) *SA 
WRITE(21,69)  CiaUT.Cm 

69  F0RMAT(*C10UTs',2E14.7,',  C1II=* ,2E14.7) 
ARG=BET*(L2-XZ) 

CS=DCOS(ARG) 

S1=DSII(ARG) 

KV-KV+Kl 

SA=S 1 *V (KV) / (CS*ZL2+U*SI) 

C20UT=(ZL2+1 . D+0) ♦DCMPLX(CS , SI) *SA 
C2II- (ZL2- 1 . D+0 ) ♦DCMPLX (CS , -SI) ♦S A 
WRITE(21,70)  C20UT,C2II 

70  F0RMAT('C20UT=' ,2E14.7, * ,  C2II=’ ,2E14.7) 
CTME-0. 

CTEE=0. 

CTE0=0. 

DO  SS  1=1, K2 
VI=V(I) 

CTME=CTME+CVTME(I) *VI 
CTEE=CTEE+CVTEE (I ) ♦VI 
CTEO=CTEO+CVTEO (1) ♦VI 
55  COITIIUE 

CTMMS=CTME*COIJG(CTME) 
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CTME=CniE-l.D+0 
WRITE(21,81)  CTME.CTEE.CTEO 

81  F0IIMAT('CTME=*.2E14.7.’,  CTEE=*,2E14.7/'CTE0=' .2E14.7) 
C10UTS=C10UT*C0IJG (CIOUT) 

ClIlS=ClII*COIJa(ClII) 

C20UTS=C20UT*C0IJG (C20UT) 

C2IIS=C2IS*CQIJG(C2II) 

PT=C100TS-C1IIS+C20UTS-C2IIS 

WRITE (21.82)  CIOUTS . Cl IIS . C20UTS . C2IIS , PT 

82  F0RMAT('C1QUTS='.E14.7.*,  C1IIS=' ,E14.7, * .  C20UTS=' ,E14.7/ 
l'C2IIS**,E14.7,',  PT=*,E14.7) 

CTMES=CTME*C0IJG(CT11E) 

CTEES=CTEE*COIJG(CTEE) 

CTEOS=CTEO*CCIJG(CTEO) 

PR=CTMES+CTEES+CTEOS 

PRM=CTMMS+CTEES+CTEOS 

WRITE (21, 90)  CTMES . CTMMS , CTEES , CTEOS . PR , PRM 

90  FORllAT(*CniES=' ,E14.7. '  ,CTMMS=’ ,E14.7/*CTEES=' ,E14.7, 

1*  CTE0S='.E14.7/»PR='.E14.7.*  .PRM=\E14,7) 

BKAPLT(KA)=BKA 
PTRAI(KA)=PT 
PREFL(KA)spR 
PTOTAL-PT+PR 
WRITE(21,1S4)  PTOTAL 
154  F0RMAT('PT0TAL=',E14.7) 

YMM=0 

YME=0 

DO  91  1=1, K2 
YEE=COIJG(V(I)) 

YMM=YMM+YREC ( I ) *7 ( I ) * YEE 
YME=YME+TI(I)*YEE 

91  COITIIUE 
BKAG-BKA/GANOl 
PTA»-BKAG*AIMAG(YI!M) 

PRMA=-PTA-BKAG*AIMAG ( YME) 

WRITE(21,93)  PTA.PRMA 

93  F0RMAT('PTA*',E14.7.'.  PRHA=' .E14.7) 

IF(KA.IE.KE3(KAE))  GO  TO  48 

KAE=KAE-M 

DEL=PI/(IPHI-1) 

DO  106  J=1,IPHI 
E3A1P(J)=0. 

E3A2P(J)=0. 

FJ1=J-1 
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FJ1D=FJ1*DEL 

PHI1(J)=PI-FJ1D 

PHI2(J)=FJ1D 

105  COITIIUE 
DEL=PI/(IZ-1) 

DO  106  J=1,1Z 
S311Z(J)=0. 

E3A2Z(J)=0. 

FJ1=J-1 

Z(J)=FJ1*DEL 

106  COITIIUE 
IF(KAE.IE.2)  GO  TO  ISS 
WRITE(21.162)(PHI2(I) .I=1.HPHI) 

152  F0RMAT('PHI2'/(SE14.7)) 

WRITE(21 . 151) (Z(I) ,1=1 ,IZ) 

151  F0RMAT(*Z*/(5E14.7)) 

155  ARG=GAM01*L3 

SA=PI2*BXAG«DSqRT(PI«BC)«(DC0S(ARG)-U*DSII(ARG)) 

DO  136  J=1,PMAX 

FJ1=J-1 

SIIP(J)=DSII(FJ1*PI5)*SA 
SIiq(J)=SIIP(J)*XZ 
136  COITIIUE 
JTM=0 
JTE=0 

DO  101  q=l.INAX 

qi=q-i 

Fqi=qi 

Fqic=pqi/c 

P2=l 

iF(qi.Eq.o)  P2=2 

P3=NN(q) 

siHqq=siRq(q) 

DO  104  P=P2,P3 

JTE=JTE+1 

JTE1=JTE+KTM 

JTE2=JTE1+K1 

BMIJ=1./BMM(JTE) 

P1=P-1 

FP1=P1 

IF(qi.Eq.O)  BMHJ=BMI>Sq2 
IF(Pl.Eq.O)  BMHJ=BMIJ*Sq2 
SINPP=SINP(P) 

BMIJP=BMHJ*FP1/B 
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BMIjq=BMIJ*FqiC 

BIIIJPP=BMIJP*SIIPP 

BNijqq=BNijq«siiqq 

yi!M=BMijqq*v(JTEi) 

YE1!=BMIJPP*V(JTE1) 

YI!E=-BMIjqq*V(JTE2) 

YEE=BM1JPP* V ( JTE2 ) 

iF(pi.Eq.o.OR.qi.Eq.o)  go  to  134 

JTMsJTH+l 
JTM2*JTM+K1 
BMijpq=BNijp*siMqq 
BMijqp=BMijq*siipp 
YMM=-BMIJPq*V ( JTM) +YMM 
YEM=Bffll  jqP*V ( JTM) +YEM 
YME=BMB JPq*V ( JTM2 ) +YME 
YEE=BMB jqp* V ( JTM2 ) +YEE 

134  PTaFPl 

DO  135  J=1,IPHI 

E3A IP ( J ) =E3A IP ( J) +YMM*COS (PT*PHI 1 ( J) ) 
E3A2P ( J ) =E3A2P ( J) +YME*COS (PT*PHI2 ( J) ) 

135  COITIHUE 

PTspqi 

DO  148  J=1,IZ 
PR=COS(PT*Z(J)) 
E3A1Z(J)=E3A1Z(J)+YEM*PR 
E3 A2Z ( J ) =E3 A2Z ( J) +YEE*PR 
148  COITIHUE 
104  COHTIHUE 
101  COITIHUE 

DO  137  J=1,HPHI 

E3A1PS(J)=CABS(E3A1P(J)) 

E3A2PS(J)=CABS(E3A2P(J)) 

137  COHTIHUE 

DO  138  J=1,HZ 
E3A1ZS( J)=CABS(E3A1Z( J) ) 

E3 A2ZS ( J ) =CABS ( E3 A2Z ( J ) ) 

138  COHTIHUE 

HRITE(21 , 140) (E3A1PS( J) , J=1 ,HPHI) 

140  F0RMAT(’E3A1PS'/(5E14.7)) 
WRITE(21,141)(E3A1ZS(J),J=1,HZ) 

141  F0RMAT('E3A1ZS'/(5E14.7)) 

WRITE(21 . 142) (E3A2PS( J) , J=1 ,HPHI) 

142  F0RMAT('E3A2PS'/(5E14.7)) 

WRITE(21 . 143) (E3A2ZS( J) , J=1 ,MZ) 
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143  F0RMAT(»E3A2ZSV(6E14.7)) 

48  COITIIUE 

WRITE(21 , 149) (BKAPLT(I) . 1=1 .RAM) 
149  F0RMAT('BKAPLT'/(6E14.7)) 

WRITE(21,92)(PTIUI(I).I=1.KAM) 

92  F0RMAT('PTRAI*/(SE14.7)) 

tfRITE(21 . 139) (PREFL(I) . 1=1, KAK) 
139  F0RMAT(‘PREFLV(6E14.7)) 

STOP 

EID 


Chaptor  4 

The  Subroutine  MODES 


The  subroutine  MODES  calculates  all  the  values  of  such  that  (k^nb)^ 
does  not  exceed  the  value  of  the  input  variable  BKM2.  Here,  fe^n  is  the  cutoff 
wavenumber  of  the  mn‘**  TM  or  TE  rectangular  waveguide  mode.  According 
to  (2.6),  _ 


kmnb  — 


1 


{miry  + 


(4.1) 


An  expansion  function  is  associated  with  each  rectangular  waveguide  mode 
(see  Appendix  A  of  [2]). 


4.1  Description  of  the  Subroutine  MODES 


The  input  and  output  variables  of  the  subroutine  MODES  are  listed  in  the 
three  common  blocks  labeled  MODES,  PI,  and  NMAX:^ 

COMMON  /MODES/PC, BKM2,KTM,KTE,MM(50) ,BMN(100) ,BMN2(100) 
COMMON  /PI/PI 
COMMON  /NMAX/NMAX 

Here,  BKM2  is  the  input  variable  mentioned  in  the  first  sentence  of  this 
chapter,  and  PC  and  PI  are  input  variables  defined  by 


PC  =  irb/c 
PI  =  TT. 

^See  the  listing  of  the  subroutine  MODES  in  Section  4.2. 


(4.2) 

(4.3) 
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The  remaining  variables  KTM,  KTE,  MM,  BMN,  BMN2,  and  NMAX  are 
output  variables. 

Nested  DO  loops  12  and  13  set 

Rl\/rN9/^K’TFl _ (If  fm  =  M  —  1,  M  =  M2,  M2  +  !,•••,  MM(N)  , .  , 

BMN2(KTE)  -  ,  I  ^  ^  ^  N  =  1,2,- ■  •  ,NMAX 


where 


r  0,  N  =  1 

KTE  =  M  -  1  +  J  Nzi 

I  i:mm(/),  n>i 


_  r  2,  N  =  1 

\  1,  N  =  2,3,---. 


Moreover,  MM(N)  is  such  that 

BMN2(KTE)  <  BKM2  when  M  =  MM(N)  (4.7) 

but 

BMN2(KTE)  >  BKM2  when  M  =  MM(N)  +  1.  (4.8) 

Furthermore,  NMAX  is  such  that 

BMN2(KTE)  <  BKM2  when  M  =  M2  and  N  =  NMAX  (4.9) 


BMN2(KTE)  >  BKM2  when  M  =  M2  and  N  =  NMAX  +  1.  (4.10) 

It  is  assumed  that  MM(N)  <  100  for  N  =  1,2,  •  •  • ,  NMAX.  If  not,  the  state¬ 
ment  “STOP  13”  terminates  execution.  It  is  also  eissumed  that  NMAX  < 
100.  If  not,  the  statement  “STOP  12”  terminates  execution. 

Nested  DO  loops  12  and  13  also  set 


BMN(KTE)  =  kmJ 


(4.11) 


where  KTE,  m,  and  n  are  the  same  as  in  (4.4).  Upon  exit  from  nested  DO 
loops  12  and  13,  KTE  will  be  its  value  when 


N  =  NMAX 
M  =  MM(NMAX) 


(4.12) 
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Substitution  of  (4.12)  into  (4.5)  gives 

NMAX 

KTE  =  -1+  MM(/)  .  (4.13) 

/=! 

Upon  exit  from  nested  DO  loops  12  and  13,  KTM  will  be  KTE  of  (4.13) 
minus  the  number  of  times  that  either  M  =  1  or  N  =  1  in  inner  DO  loop  13: 

NMAX 

KTM  =  52  (MM(0  -  1)  .  (4.14) 

t=2 

4.2  Listing  of  the  Subroutine  MODES 

SUBROUTIIE  MOOES 
IMPLICIT  REAL*8  (1-H.O-Z) 

COMMOl  /MODES/PC. BKM2 .KTM .KTE.MM(SO) . BM1( 100) . BMI2( 100) 

COMMOl  /PI/PI 
COMMOV  /IMAX/IMAX 
KTM=0 
KTE*0 

DO  12  1»1.101 
CC=PC*(I-1) 

C2=CC*CC 

M2=l 

IF(I.Eq.l)  M2=2 
DO  13  M=M2.101 
BB=PI*(M-1) 

B2=C2>BB*BB 

IF(B2.GT.BKM2)  GO  TO  IS 
KTE=KTE+1 
BMI2(KTE)»B2 
BMl(KTE)=DSqRT(B2) 

IF(M.Eq.l.OR.I.Eq.l)  GO  TO  13 
KTM=KTM+1 

13  COHTIHUE 
STOP  13 

IS  IF(M.Eq.M2)  GO  TO  14 
MM(I)=M-1 
12  COMTIHUE 
STOP  12 

14  HMAX=M-1 
RETURM 
END 


120 


Chapter  5 

The  Subroutine  BESIN 


The  subroutine  BESIN  puts  data  in  the  common  block  labeled  BESIN^ 
These  data  will  be  used  by  the  subroutine  BES  (see  Chapter  6)  to  calculate 
roots  of  Bessel  functions  and  their  derivatives  (see  Appendix  B  of  [2]). 


5.1  Description  of  the  Subroutine  BESIN 

In  the  common  block  labeled  PI,  PI  is  an  input  variable  defined  by 


PI  =  7r.  (5.1) 

The  subroutine  BESIN  reads  input  data  from  the  file  BESIN.DAT,  writes 
output  data  in  the  file  BESOUT.DAT,  and  puts  output  data  in  the  common 
block  labeled  BESIN.  The  data  mentioned  in  the  previous  sentence  are 
described  below. 


5.1.1  Tabulated  Roots  of  Bessel  Functions 

The  array  AA  that  is  read  in  and  written  out  prior  to  execution  of  DO  loop  12 
contains  alphameric  data  indicating  that  the  array  X  in  DO  loop  12  contains 
roots  of  Bessel  functions.  In  DO  loop  12, 


X(N,S)=iN-i.s  (5.2) 

^This  common  block  appears  in  the  listing  of  the  subroutine  BESIN  (see  Section  5.2). 
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where  the  j’s  are  roots  of  Bessel  functions  (see  Appendix  B  of  [2])  taken  from 
Table  I  of  [6]. 

The  write  statement  in  DO  loop  11  and  the  write  statement  following  DO 
loop  11  are  inactivated  because  of  the  “C”  in  column  1.  Removal  of  the  “C” 
from  both  of  these  write  statements  would  cause  the  roots  (5.2)  of  Bessel 
functions  to  be  written  as  they  appear  in  Table  I  of  [6]  where  the  first  50 
roots  of  a  Bessel  function  of  a  given  order  appear  as  a  column  of  50  numbers. 

5.1.2  Tabulated  Roots  of  Derivatives  of  Bessel 
Functions 

The  array  AA  that  is  read  in  and  written  out  prior  to  execution  of  DO  loop 
14  contains  alphameric  data  indicating  that  the  array  XP  in  DO  loop  14 
contains  roots  of  derivatives  of  Bessel  functions.  In  DO  loop  14, 

XP(N,S)=i^_,,s  (5.3) 

where  the  j'  ’s  are  roots  of  derivatives  of  Bessel  functions  (see  Appendix  B 
of  [2])  taken  from  Table  II  of  [6]. 

The  write  statement  in  DO  loop  24  and  the  write  statement  following  DO 
loop  24  are  inactivated  because  of  the  “C”  in  column  1.  Removal  of  the  “C” 
from  both  of  these  write  statements  would  cause  the  roots  (5.3)  of  derivatives 
of  Bessel  functions  to  be  written  as  they  appear  in  Table  II  of  [6]  where  the 
first  50  roots  of  the  derivative  of  a  Bessel  function  of  a  given  order  appear  as 
a  column  of  50  numbers, 

5.1.3  Literpolation  Data  for  Roots  of  Bessel 
Functions  of  Large  Order 

In  this  section,  interpolation  data  are  obtained  for  the  parameters  z,  pi ,  and 
Pi  that  appear  in  eq.  (B.5)  of  [2].  In  the  subroutine  BES,^  these  data  will  be 
substituted  into  the  right-hand  side  of  eq.  (B.12)  of  [2]. 

The  data  /,  (5^,  and  7'*  tabulated  in  [6]  must  be  used  with  care  in 
eq.  (B.12)  of  [2].  The  additional  subscript  0  or  1  on  /,  and  7“*  in  eq.  (B.12) 
of  [2]  denotes  evaluation  at  either  the  nearest  smaller  or  the  nearest  larger 

^See  Chapter  6. 
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tabulated  v<ilue  of  the  argument.  Any  tabulated  value  of  /,  6^,  or  j*  that 
has  no  sign  and  that  follows  a  number  with  a  negative  sign  is  assummed  to  be 
negative.  If  all  tabulated  values  of  /  have  /  digits  to  the  right  of  the  decimal 
point,  then  and  7^  are  given  in  units  of  10“^  In  other  words,  the  tab¬ 
ulated  Vtilues  of  6^  and  y*  must  be  multiplied  by  10~*  before  insertion  into 
eq.  (B.12)  of  [21.  Alternatively,  one  can  multiply  the  tabulated  values  of  /  by 
10^  take  the  tabulated  values  of  and  'y*  as  they  stand,  and  then  multiply 
the  computed  right-hand  side  of  eq.  (B.12)  of  [2]  by  10“^  The  latter  course 
of  action  will  be  taken  for  interpolation  in  the  subroutine  BES.  Otherwise 
stated,  the  interpolation  formula  that  will  be  used  in  the  subroutine  BES  is 

10'/,  =  (1  -  P)  (lo7o)  +  P  (107.)  +  +  F2SL,  +  M,-,i  +  N,i;  (5.4) 

rather  than  eq.  (B.12)  of  [2]  as  it  stands. 

The  alphameric  data  AA  that  are  read  in  and  written  out  irrunediately 
before  Z  is  read  in  introduce  Z.  Here, 


Z(I)  =  lO^^(-C)  for  -  C  =  0.1  *  (I  -  1),  I  =  1, 2,  •  •  • ,  76  (5.5) 

Z(I)  =  10"  (r  -  |r")  for  ?  =  0.02  .  (I  -  77), 

I  =  77, 78,  •••,96  (5.6) 


where  2(— C)  is  the  parameter  z  that  appears  in  eq.  (B.5)  of  [2].  I'he  argument 
— ^  in  •2(— C)  is  given  by  eq.  (B.6)  of  [2].  The  alphameric  data  A  A  that  eire 
read  in  and  written  out  immediately  before  ZD2  is  read  in  introduce  ZD2. 
Here, 

ZT)2(l)=Sl,  1=1, 2,  ■■■,96  (5.7) 

where  {6^,  I  =  1,2, •••,76}  are  the  modified  second  differences  in  the  in¬ 
terpolation  formula  (5.4)  for  10^z(— C)  of  (5.5)  and  {(5^,  I  =  77, 78,  •  •  •  ,96} 
are  the  modified  second  differences  in  the  interpolation  formula  (5.4)  for 
10^  (z  —  1^“^)  of  (5.6)  where 


1 

n/=C- 


(5.8) 


Formula  (5.4)  for  10®z(— ^)  is  (5.4)  with  /  replaced  by  z.  Formula  (5.4)  for 
10®z(— C)  interpolates  10®z  as  a  function  of  — C  for  0  <  — C  <  7.5.  Formula 


(5.4)  for  10®  (z  is  (5.4)  with  /  replaced  by  z  -  Formula 

(5.4)  for  10®  (z  interpolates  10®  (z  -  as  a  function  of  ^ 

for  {0  <  ^  <  0.38}.  However,  this  formula  will  be  used  only  for  0  <  ^  < 

because  the  range  ^  <  ^  <  0.38  lies  within  the  range  0  <  -C  <  7.5.  In 

(5.7),  I  denotes  evaluation  at  the  value  of  — ^  in  (5.5)  when  1  <  I  <  76  and  at 
the  value  of  ^  in  (5.6)  when  77  <  I  <  96.  The  alphameric  data  AA  that  are 
read  in  and  written  out  immediately  before  ZD4  is  read  in  introduce  ZD4. 
Here, 

ZD4(I)=7^  1=1, 2,..  .,96  (5.9) 

where  {7'*,  I  =  1,2,  ••  •  ,96}  are  the  modified  fourth  differences  that  comple¬ 
ment  the  modified  second  differences  {6^,  I  =  1, 2,  •  •  ■ ,  96}  in  (5.7). 

The  alphameric  data  AA  that  are  read  in  and  written  out  immediately 
before  PI  is  read  in  introduce  PI.  Here, 

P1(I)  =  lOV(-C)  for  -C  =  0.1*(I-1),  1  =  1, 2,-. .,76  (5.10) 

P1(I)  =  lOVi  j  for  (  =  0.02  ♦  (I  -  77),  I  =  77, 78,  •  •  • ,  96  (5.11) 

where  Pi(— C)  is  the  parameter  px  that  appears  in  eq.  (B.5)  of  [2].  The 
argument  — ^  is  given  by  eq.  (B.6)  of  [2].  The  alphameric  data  AA  that  are 
read  in  and  written  out  immediately  before  P1D2  is  read  in  introduce  P1D2. 
Here, 

P1D2(I)  =  6^,  I  =  1,2, •••,96  (5.12) 

where  {6^,  I  =  1,2, •••,76}  are  the  modified  second  differences  in  the  in¬ 
terpolation  formula  (5.4)  for  lOVi(-C)  and  {(5^,  I  =  77, 78,  •  •  •  ,96}  are  the 
modified  second  differences  in  the  interpolation  formula  (5.4)  for  lO^i 
where  ^  is  given  by  (5.8).  Precise  definitions  of  the  interpolation  formulas 

(5.4)  for  10^pi(— C)  and  (5.4)  for  lO^i  (^)  can  be  obtained  by  replacing 

10®z(-C)  and  10®  (z  by  lO^Pi(-C)  and  lO^i  (^),  respectively, 

in  the  definitions  of  the  interpolation  formulas  (5.4)  for  10®z(— C)  and  (5.4)  for 
10®  (z  The  latter  definitions  are  contained  in  the  five  sentences 

that  follow  (5.8). 

The  alphameric  data  that  are  read  in  and  written  out  immediately  before 
P2  is  read  in  introduce  P2.  Here, 

P2(I)  =  10V2(-C)  for  -  C  =  0.1*(I-1),  1=  l,2,---,76  (5.13) 
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where  P2(~C)  is  the  parameter  pj  that  appears  in  eq.  (B.5)  of  [2].  It  is 
2issumed  that 

P2(-C)  =  0  for  -  C  >  7.5.  (5.14) 

5.1.4  Interpolation  Data  for  Roots  of  Derivatives  of 
Bessel  Functions  of  Large  Order 

In  this  section,  interp>olation  data  are  obtained  for  the  parameters  q\,  q2<,  and 
93  that  appear  in  eq.  (B.17)  of  [2].  The  parameter  z  in  eq.  (B.17)  of  [2]  is 
the  same  function  of  as  in  eq.  (B.5)  of  [2].  Iuterp>olation  data  for  z  was 
obtained  in  Section  5.1.3. 

The  alphameric  data  AA  that  are  read  in  and  written  out  immediately 
before  Ql  is  read  in  introduce  Ql.  Here, 

Q1(I)  =  10^(-C)9i(-C)  for  -  C  =  0.1  ♦  (I  -  1),  I  =  1, 2,  • .  • ,  11  (5.15) 
Q1(I)  =  10^9a(-C)  for  -  C  =  0.1  ♦  (I  -  2),  I  =  12, 13,  •  •  • ,  77  (5.16) 

Q1(I)  =  10^91  for  ^  =  0.02  *  (I  -  78),  I  =  78, 79,  •  •  • ,  97  (5.17) 

where  9i(— C)  is  the  parameter  91  that  appears  in  eq.  (B.17)  of  [2].  The 
argument  — C  is  given  by  eq.  (B.6)  of  [2].  The  alphameric  data  AA  that  are 
read  in  and  written  out  immediately  before  Q1D2  is  read  in  introduce  Q1D2. 
Here, 

Q1D2(I)=«L  (5.18) 

where  {6^,  1=  1,2, •••,11}  Me  the  modified  second  differences  in  the  inter¬ 
polation  formula  (5.4)  for  10^(— C)9i(— C)  of  (5.15),  {6^,  I  =  12, 13,  •  •  •  ,77} 
are  the  modified  second  differences  in  (5.4)  for  10^9i(— C)  of  (5.16),  and 
I  =  78, 79,  •  •  •  ,97}  are  the  modified  second  differences  in  (5.4)  for 
I0^9i  of  (5.17).  The  alphameric  data  AA  that  are  read  in  and  writ¬ 
ten  out  immediately  before  Q1D4  is  read  in  introduce  Q1D4.  Here, 

Q1D4(I)  =  7^  1=1, 2,  •••,17  (5.19) 

where  {7'*,  I  =  1,2,  •  •  • ,  17}  are  the  modified  fourth  differences  that  comple¬ 
ment  the  modified  second  differences  {5^,  I  =  1,2, •••,17}  in  (5.18).  The 
remaining  modified  second  differences  {6^,  I  =  18, 19,  •  •  • ,  97}  in  (5.18)  are 
not  complemented  by  any  modified  fourth  differences. 
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The  alphameric  data  AA  that  are  read  in  and  written  out  immediately 
before  Q2  is  read  in  introduce  Q2.  Here, 

Q2(I)  =  10«  i-Cf  92(-C)  for  -  C  =  0.1  ♦  (I  -  1),  I  =  1, 2,  •  • . ,  11  (5.20) 

Q2(I)  =  10® 92  (-0  for  -  C  =  0.1  ♦  (I  -  2),  I  =  12, 13,  •  •  • ,  50  (5.21) 

where  92(~C)  -■<  parameter  92  that  appezirs  in  eq.  (B.17)  of  [2].  It  is 
assumed  that 

92(-C)  =  0  for  -  C  >  4.8.  (5.22) 

The  alphameric  data  that  are  read  in  and  written  out  immediately  before 
Q2D2  axe  read  in  introduce  Q2D2.  Here, 

Q2D2(I)  =  «L  I  =  1,2,. .-,30  (5.23) 

where  {6^,  1=  1,2, ••*,11}  are  the  modified  second  differences  in  the  inter¬ 
polation  formula  (5.4)  for  10®(— C)^92(~C)  of  (5.20),  zind  {6^,  I  =  12, 13,  •  •  • , 
30}  are  the  modified  second  differences  in  (5.4)  for  10®92(— C)  of  (5.21).  There 
are  no  modified  second  differences  for  >  2.8  in  (5.21). 

The  alphameric  data  that  are  read  in  and  written  out  immediately  before 
Q3  is  read  in  introduce  Q3.  Here, 

Q3(I)  =  10'‘(-O‘?3(-<)  for  -<  =  0.1.(I-1),I=1,2,...,11  (5.24) 

where  93(— C)  is  the  parameter  93  that  appears  in  eq.  (B.17)  of  [2].  It  is 
assumed  that 

93(-0  =  0  for  -  C  >  1.0.  (5.25) 

5.1.5  Negative  Roots  of  the  Airy  Function  and  Its 
Derivative 

The  alphameric  data  AA  that  are  read  in  and  written  out  immediately  before 
A  is  read  in  introduce  A.  Here, 

A(S)  =  as  for  d  =  l,2,.--,50  (5.26) 

where  as  is  the  negative  root  of  the  Airy  function  Ai  (see  eq.  (B.7)  of 
[2]).  The  alphameric  data  AA  that  are  read  in  and  written  out  immediately 
before  AP  is  read  in  introduce  AP.  Here, 

AP(S)  =  a's  for  S=l,2,...,50  (5.27) 
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where  03  is  the  S‘**  negative  root  of  Ai'  where  Ai  is  the  derivative  of  the  Airy 
function  Ai  (see  eq.  (B.19)  of  [2]).  After  AP  is  written  out,  PIS,  PI4,  and 
TT  are  defined  by 


PI3  =  - 

(5.28) 

PI4  =  7 

4 

(5.29) 

TT  =  - 
3- 

(5.30) 

The  variables  PI4  and  TT  are  common  variables  that  will  be  used  in  the 
subroutine  BES.  The  variables  PIS  and  TT  are  used  in  DO  loop  25. 

DO  loop  25  calculates  a,  of  (B.9)  of  [2]  and  a'  of  (B.21)  of  [2]  and  stores 
them  in  A(s)  and  AP(s),  respectively,  for  {s  =  50, 51, •  •  •  ,200}.  According 
to  what  is  stated  in  the  sentence  containing  eq.  (B.9)  of  [2]  and  the  sentence 
containing  eq,  (B.21)  of  [2],  we  should  have  started  s  at  51  rather  than  50. 
We  started  s  at  hO  to  obtain  calculated  values  of  050  and  050  that  we  could 
compare  with  the  previously  read  in  values  050  of  (5.26)  and  of  (5.27). 
For  this  comparison,  see  the  last  paragraph  of  Section  2.2.2.  In  DO  loop  25, 


AM  =  A 

(5.31) 

UM  =  /i 

(5.32) 

A(S)  =  as 

(5.33) 

AP(S)  =  a's 

(5.34) 

where  A  is  the  right-hand  side  of  eq.  (B.IO)  of  [2]  when  s  =  S  and  n  is  the 
right-hand  side  of  eq.  (B.22)  of  [2]  when  s  =  S.  Furthermore,  as  is  the  right- 
hand  side  of  eq.  (B.9)  of  [2]  when  s  =  S  and  Og  is  the  right-hand  side  of 
eq.  (B.21)  of  [2]  when  s  =  S. 

5.2  Listing  of  the  Subroutine  BESIN 

SUBROUTIIE  BESII 
IMPLICIT  BEAL*8  (A-H,0-2) 

COMMOI  /PI/PI 

COMMOI  /BESIH/X(21,50) ,XP(21,60) ,Z(96) ,ZD2(96) .ZD4(96) , 

IPl (96) .P1D2(96) ,P2(76) ,Q1 (97) ,Q1D2(97) , Q1D4( 17) , Q2(50) , 
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2Q2D2(30) ,Q3(11) .A(200) ,1P(200) ,PI4.TT 
IITEGER  S 
REAL«4  AA(40) 

OPEl (UIIT=22 , FILE* ‘ BESIl . DAT ' .  STATOS=  *  OLD » ) 
0PEI(UIIT=23,FILE=*BES0UT.DAT» ,  STATUS='OLD') 
READ(22,10)(AA(I).I=1,20) 

10  F0RMAT(20A4) 

TOITE(23,10)(AA(I).I=1.20) 

DO  12  I»1.21 

REA0(22.13)(X(I.S).S»1.50) 

13  F0IINAT(5F13.8) 

12  COITIHUE 

DO  11  J=l,4 

J1=(J-1)*S+1 

J2=Jl+4 

tfRITE(23.22)((X(I.S).I=Jl,J2).S=1.50) 

22  F0RMAT(5F13.8) 

11  COITIIUE 

WRITE(23,23)(X(21.S).S=1,S0) 

23  F0RMAT(F13.8) 

READ(22. 10) (AA(I) ,1=1,20) 

WRITE(23 , 10) (AA(I) .1=1 ,20) 

DO  14  1=1,21 

READ(22,13)(XP(I,S),S=1,50) 

14  COITIHUE 

DO  24  J=l,4 

J1=(J-1)*S+1 

J2=Jl+4 

WRITE(23, 22) ((XP(I,S),I=J1.J2) ,3=1,50) 

24  COITIHUE 

WRITE(23 , 23) (XP(21 , S) ,3=1 ,50) 
READ(22,10)(AA(I),I=1,40) 

WRITE(23 , 10) ( AA(I) , 1=1 ,40) 
READ(22,1S)(Z(I),I=1,96) 

15  F0RMAT(5F13,0) 

WRITE(23,15)(Z(I),I=1,96) 

READ(22,10)(AA(I),I=1,20) 

HRITE(23,10)(AA(I),I=1,20) 

REA0(22,16)(ZD2(I),I=1,96) 

16  F0RMAT(5F9.0) 

WRITE(23 , 16) (ZD2(I) ,1=1 ,96) 
READ(22,10)(AA(I),I=1,20) 

WRITE(23, 10) (AA(I) ,1=1,20) 
READ(22,17)(ZD4(I),I=1,96) 
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17  F0IU!AT(SF3.0) 

tfRITE(23. 17) (ZD4(I) .1=1 .96) 
IIEAD(22.10)(AA(I).I=1.20) 
«RITE(23 . 10) (AA(I) . 1=1 , 20) 
READ(22.18)(P1(I).I=1.96) 

18  F0RMAT(5F8.0) 

WRITE(23 . 18) (PI (I) . 1=1 . 98) 
READ(22.10)(AA(I).I=1.20) 
tfRITE(23.10)(AA(I).I=1.20) 
READ(22.19)(P1D2(I).I=1,96) 

19  F0RMAT(5F5.0) 

WRITE(23 . 19) (P1D2(I) .1=1.96) 
READ(22.10)(AA(I).I=1.20) 
WRITE(23 . 10) ( AA(I) . 1=1 . 20) 
READ(22 . 19) (P2(I) , 1=1.76) 
WRITE(23 . 19) (P2(I) ,1=1.76) 
READ(22, 10) (AA(I) .1=1 ,20) 
WRITE(23,10)(AA(I) .1=1,20) 
READ(22,16)^qi(I).I=1.97) 
HRITE(23,16)(qi(I),I=l,97) 
READ(22.10)(AA(I),I=1,20) 
WRITE(23,10)(AA(I),I=1.20) 
READ(22.20) (qiD2(I) .1=1 ,97) 

20  F0RMAT(5F7.0) 

WRITE(23,20) (qiD2(I) , 1=1,97) 
READ(22,10)(AA(I),I=1,20) 
WRITE(23,10)(AA(I),I=1,20) 
READ(22 . 17) (qiD4(I) . 1=1 , 17) 
WRITE(23 , 17) (qiD4(I) , 1=1 , 17) 
READ(22.10)(AA(I),I=1.20) 
tfRITE(23 , 10) (AA(I) . 1=1 . 20) 
READ(22,20)(q2(I),I=1.50) 
WRITE(23.20)(q2(I).I=1.50) 
READ(22,10)<AA(I),r=l,20) 
WRITE(23 , 10) ( AA(I) , 1=1 , 20) 
READ(22, 19) (q2D2(I) .1=1 ,30) 
WRITE(23 , 19) (q2D2(I) , 1=1,30) 
READ(22,10)(AA(I),I=1,20) 
WRITE(23. 10) (AA(I) ,1=1,20) 
READ(22,19)(q3(I),I=l,ll) 
WRITE(23,19)(q3(I).I=l,ll) 
READ(22,10)(AA(I),I=1,20) 
WRITE(23 , 10) (AA(I) ,1=1 ,20) 
READ(22.21)(A(S),S=1,50) 
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21  F0RM1T(5F12.8) 

WRITE(23 , 21) ( A(S) .3=1 , SO) 
REAO(22,10)(AA(I).I=1,20) 
iniITE(23. 10) (AA(I) ,1=1,20) 
IIEA0(22.21)(AP(S).S=1.S0) 

WIITE(23 . 21 ) ( AP (3) . 3=1 , 50) 

PI3=0.375D+0*PI 
PI4=PI/4.D+0 
TT=2.D+0/3.D+0 
DO  25  3=50,200 
13=4*3 

AM=PI3*(IS-1) 

UM=PI3*(I3-3) 

AN2=AM*AM 

UM2=UM*UM 

A (3) =-AM**TT* ( 1 .D+0+ . 104166666667D+0/AM2) 
AP (3) =-UM**TT* ( 1 . D+0- . 14S833333333D+0/UM2 ) 

25  COmiUE 

WIITE(23,26)  A(S0).AP(50) 

26  FaRMAT('A(S0)=’,F12.8,*,  AP(50)=' ,F12.8) 
RETURI 

EID 
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Chapt  sr  6 

The  Subroutine  BES 

The  subroutine  BES(N,XJ,XJP)^  sets 

XJ(S)  =  (6.1) 

XJP(S)  =  i;.  (6.2) 

where 

n  =  N  -  1  (6.3) 

s  =  S  for  S  =  1,2, •• -jSnuuf.  (6.4) 

Here,  is  the  s***  root  of  the  Bessel  function  Jn  and  is  the  root  of 
J'  (see  App)endix  B  of  [2]).  In  (6.4),  Swax  is  the  smallest  integer  s  such  that 

j'ns  >  XM  (6.5) 

where  XM  is  an  input  variable. 

In  the  common  block  labeled  BES,  XM  is  the  input  variable  mentioned 
in  the  previous  sentence,  and  SMAX  is  an  output  variable.  As  calculated  in 
the  subroutine  BES, 

SMAX  =  w  (6.6) 

where  Sn,*,  is,  as  defined  in  Appendix  B  of  [2],  the  largest  integer  s  such  that 

3o,s  <  XM,  n  =  0  \ 

;L<XM,  n  =  l,2,--  /- 

^See  the  listing  of  the  subroutine  BES  in  Section  6.3. 
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If  n  =  0  ajid  jo,i  >  XM  or  if  n  ^  0  and  >  XM,  then  the  subroutine  BES 
sets  SMAX  =  0.  The  common  block  labeled  BESIN  contains  input  data 
obtained  by  running  the  subroutine  BESIN.  This  input  data  is  described 
in  Chapter  5.  The  subroutine  BES  calls  the  subroutine  INTERPOL.  The 
subroutines  BES  and  INTERPOL  communicate  by  means  of  the  variables  in 
the  common  block  labeled  INTERPOL.  The  subroutine  INTERPOL  uses  P 
and  I  to  calculate  IP,  CP,  E2,  F2,  M4,  N4,  and  AZ  (see  Chapter  7). 


6.1  The  Roots  jns  and  for  n  <  19 


If  n  <  19  where  n  is  given  by  (6.3),  then  the  statement 

IF(N.GT.20)  GO  TO  11 

at  the  beginning  of  the  subroutine  BES  allows  execution  to  proceed  to  DO 
loop  12  and,  if  necessary,  to  DO  loop  14.  In  these  DO  loops,  XJ(S)  and 
XJP(S)  of  (6.1)  and  (6.2)  are  obtained  for  {S  =  1, 2,  •  •  • ,  Sni^}  where  Sm..  is 
defined  by  means  of  (6.5).  Thanks  to  the  branch  statement 

IF(XJP(S).GT.XM)  GO  TO  13 
before  statement  12  and  the  branch  statement 

IF(XJP(S).GT.XM)  GO  TO  13 

before  statement  14,  S  =  Snuw  immediately  before  execution  of  statement  13 
provided  that 

>  XM.  (6.8) 

If  (6.8)  is  not  satisfied,  then  execiition  terminates  on  the  statement 

STOP  14 

after  statement  14.  Statement  13  and  the  statement  following  it  use  Smax  to 
set 

SMAX  =  s™.,,  (6.9) 


where  is  defined  by  means  of  (6.7).  If  n  =  0  and  <  XM  when 
^  ~  Snriax5  then 

’Smax  =  Smax.  (6-10) 


Otherwise, 


=  S™,  -  1. 


(6.11) 
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6.1.1  Tabulated  Values  of  j„,  and  jj,,  for 

s  =  l,2,---,49 

In  DO  loop  12,  X(N,S)  and  XP(N,S)  are,  respectively,  the  values  of  jti-i,s 
and  g  taken  from  Tables  I  and  II  of  [6|.  The  “outer  fringe”  tabulated  val¬ 
ues  {X(21,S)  3-xd  XP(21,S),  S  =  1,2, •••,50}  and  {X(N,50)  and  XP(N,50), 
N  =  1,2, •••,20}  were  not  used  in  DO  loop  12.  Values  of  {j20,»  ^d  ^’20,, 
s  =  1, 2,  •  •  • ,  50}  and  {jn.so  and  jJ,  50,  n  =  0, 1,  •  •  • ,  19}  were  computed  later 
in  the  subroutine  BES  for  comparison  with  the  tabulated  values  {X(21,S) 
andXP(21,S),  S  =  1,2, •••,50}  and  {X{N,50)  and  XP(N,50),  N  =  1,2, 

•  •  • ,  20}.  To  obtain  this  comparison,  we  had  to  increase  the  value  of  the  input 
variable  XM  from  40  (see  (2.53))  to  190.  We  also  had  to  insert  statements  to 
write  out  the  computed  v^ues  of  {X(21,  S)  and  XP(21,  S),  S  =  1, 2,  •  •  • ,  50} 
and  {X(N,50)  and  XP(N,50),  N  =  1,2, •••,20}.  We  made  these  changes 
and  ran  the  computer  program  to  obtain  output  data  not  shown  in  the 
present  report.  In  these  output  data,  each  of  the  computed  values  of  X(21, 1), 
{X(21,S),  XP(21,S),  S  =  2,3,---,50}  and  {X(N,50),  XP(N,50),  N  =  1,2, 

•  •  • ,  20}  was  within  3  x  10“*  of  the  tabulated  value.  The  difference  between 
the  computed  and  tabulated  values  of  XP(21, 1)  was  a  bit  larger.  The  com¬ 
puted  value  of  XP(21, 1)  was  22.2194671  as  opposed  to  the  tabulated  vedue 
of  22.21914648. 

6.1.2  Truncated  Expansions  for  j„8  and  for  s  >  50 

If  49  <  XM,  then  DO  loop  12  terminates  normally  and  control  passes  to 
the  statement  that  follows  statement  12.  As  a  result,  DO  loop  14  and  the  16 
statements  prior  to  it  are  executed.  In  DO  loop  14, 

XJ(S)  =  jnt  for  n  =  N  —  1  and  s  =  S  (6.12) 

XJP(S)  =  for  n  =  N  -  1  and  s  =  S  (6.13) 

where  and  are,  respectively,  calculated  values  of  the  right-hand  sides 
of  eqs.  (B.23)  and  (B.24)  of  [2]. 

The  17  statements  prior  to  DO  loop  14  set 

NA  =  n 
N2  =  2n  -  1 
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(6.14) 

(6.15) 


N3  = 


_  r  2n  —  1,  n 
I  2n  —  3,  n 


=  0 
7^0 


UM  =  /i 
UMl  =  /I  -  1 

UM2  = 


A5  = 


61440 

UM3  = 

Ar 


A7  = 


API  = 


AP3  = 


APS  = 


20643840 


4' 

384 


61440 
UM4  =  fi* 


APT  = 


20643840 


(6.16) 

(6.17) 

(6.18) 

(6.19) 

(6.20) 
(6.21) 
(6.22) 

(6.23) 

(6.24) 

(6.25) 

(6.26) 

(6.27) 

(6.28) 
(6.29) 


where 

fi  =  4n^  (6.30) 

Moreover,  Ai,  A3,  A5,  A7,  A\,  A3,  A5,  and  A7  are  given,  respectively,  by 
eqs.  (B.26)-(B.29)  aind  (B.32)-(B.35)  of  [2].  As  given  by  (6.19),  (6.20),  (6.22), 
and  (6.24),  Al,  A3,  AS,  and  A7  are,  respectively,  the  coefficients  of  the 
1/9,  1/9^,  1/9®,  and  1/9^  terms  inside  the  summation  sign  in  eq.  (B.23)  of 
[2].  As  given  by  (6.25)-(6.27),  and  (6.29),  API,  AP3,  APS,  and  APT  are, 
respectively,  the  coefficients  of  the  1/9',  1/9'^,  1/9'®,  and  1/9'^^  terms  inside 
the  summation  sign  in  eq.  (B.24)  of  [2]. 

In  DO  loop  14, 


NS  =  4s 


(6.31) 
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B  =  ^ 

(6.32) 

B2  =  0^ 

(6.33) 

(6.34) 

B5  = 

(6.35) 

XJ(S)  =  jns 

(6.36) 

11 

(6.37) 

BP2  =  0^^ 

(6.38) 

BP3  =  0^ 

(6.39) 

BP5  =  0^ 

(6.40) 

xjp(s)  =  i;. 

(6.41) 

where  0  jns,  and  are  given,  respectively,  by  eqs.  (B.25), 

(B.24)  of  [2],  Equation  (B.31)  of  [2]  is  not  correct  when  n  =  0; 
0  in  (6.37)  is  given  by^ 

(B.23),  and 
the  value  of 

_  /  (2”  +  4s  -b  l)x'/4,  n  =  0 
^  \  (2n  -b  4s  —  3)ir/4,  n  /  0. 

(6.42) 

6.2  The  Roots  jns  and  for  n  >  20 

If  n  >  20  where  n  is  given  by  (6.3),  then  the  statement 

IF(N.GT.20)  GO  TO  11 

at  the  beginning  of  the  subroutine  BES  sends  execution  to  statement  11. 
Control  eventually  passes  to  DO  loop  15,  which  sets 

XJ(S)  =  jnt  for  n  =  N  —  1  and  s  =  S  (6.43) 

XJP(S)  =  y;,  forn  =  N -  1  and  s  =  S  (6.44) 

where  jns  and  j'n,  are,  respectively,  calculated  values  of  the  right-hand  sides 
of  eqs.  (B.5)  and  (B.17)  of  [2].  The  six  statements  before  DO  loop  15  set 

CN  =  n  (6.45) 

CNl  =  l0-®n  (6.46) 

^Since  our  ,  is  that  of  [6]  with  s  replaced  by  s-l- 1,  our  /?'  is  that  of  [6]  with  s  replaced 
by  « -h  1  when  n  =  0. 
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CN2  =  — 
n 

(6.47) 

10~® 

CN3= 

(6.48) 

10~® 

CN4  =  ^ 

(6.49) 

cm  = 

(6.50) 

6.2.1  Calculation  of  jns  for  n  >  20 

The  group  of  statements  before  statement  17  in  DO  loop  15  calculates  jn,  of 
(6.43).  The  first  of  these  statements  sets 

ZETA  =  -C  (6.51) 

where  — C  is  given  by  eq.  (B.6)  of  [2]. 

The  group  of  eight  statements  after  the  branch  statement 
IF(ZETA.GT.7.5D+0)  GO  TO  16 

implements  (6.43)  when  — ^  <  7.5.  The  third  of  these  statements  sets 

P  =  p  (6.52) 

where  p  appears  in  (5.4).  The  fourth  of  these  statements  sets  I  such  that  Z(I) 
is  the  value  of  lO^^  at  the  nearest  smaller  tabulated  value  of  — The  fifth  of 
these  statements  calculates  the  computer  program  variables  IP,  CP,  E2,  F2, 
M4,  N4,  and  AZ.  These  variables  are  defined  by  (7.8)-(7.14),  respectively. 
The  sixth  and  seventh  of  these  statements  set 

API  =  10^1  (6.53) 

AP2  =  10®P2  (6.54) 

where  lO^pi  is  the  right-hand  side  of  (5.4)  for  10’^pi(— C)  and  10® p2  is  the 
right-hand  side  of  (5.4)  for  10®p2(— C)-  Here,  Pi(— C)  and  P2(— C)  are  the 
interpolated  values  of  pi  and  pj  in  (B.5)  of  [2].  The  eighth  of  these  statements 
sets  XJ(S)  equal  to  of  eq.  (B.5)  of  [2]  when  —(  <  7.5. 

Statement  16  and  the  seven  statements  following  it  implement  (6.43) 
when  — >  7.5.  The  first  of  these  statements  sets 

XI  =  ^  (6.55) 
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where  ^  is  given  by  (5.8).  The  fourth  of  these  statements  sets 

P  =  p  (6.56) 

where  p  appears  in  (5.4).  The  fifth  of  these  statements  sets  I  such  that  Z(I) 
is  the  value  of  10*  (^  (^)  ~  1^”^)  nearest  smaller  tabulated  value  of 

The  sixth  of  these  statements  calculates  the  computer  program  variables 
IP,  CP,  E2,  F2,  M4,  N4,  and  AZ.  These  variables  are  defined  by  (7.8)-(7.13) 
and  (7.15),  respectively.  The  seventh  of  these  statements  sets 

API  =  lO^p,  (6.57) 

where  lO^pi  is  the  right-hand  side  of  (5.4)  for  lO^i  (^)-  is  assumed 
that  p2  =  0.  The  eighth  of  these  statements  sets  XJ(S)  equal  to  of 
eq.  (B.5)  of  [2]  when  >  7.5. 

6.2.2  Calculation  of  for  n  >  20 

Statement  17  and  all  statements  between  statements  17  aind  20  in  DO  loop 
15  calculate  of  (6.44).  Statement  17  sets 

ZETA  =  -C  (6.58) 

where  — C  is  given  by  eq.  (B.18)  of  [2]. 

The  group  of  18  statements  after  the  branch  statement 

IF(ZETA.GE.7.5D-l-0)  GO  TO  18 

implements  (6.44)  when  <  7.5.  The  third  of  these  statements  sets 

P  =  p  (6.59) 

where  p  ^pears  in  (5.4).  The  fourth  of  these  statements  sets  I  such  that 
Z(I)  is  10^z(— C)  at  the  nearest  smaller  tabulated  value  of  — The  fifth  of 
these  statements  calculates  the  computer  prograim  variables  IP,  CP,  E2,  F2, 
M4,  N4,  and  AZ.  These  variables  are  defined  by  (7.8)-(7.14),  respectively. 
The  sixth  of  these  statements  adds  1  to  I  if  I  >  11.  This  is  necessary  because 
I  =  11  in  (5.15)  and  I  =  12  in  (5.16)  both  indicate  the  same  argument 
— C  =  1-0.  The  eighth  through  seventeenth  of  these  statements  set 

AQl  =  10"9i(-C) 

AQ2  = 

AQ3  =  10*<73(-C) 
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(6.60) 

(6.61) 

(6.62) 


where  9i(— C)j  92(~C)i  93(~C)  interpolated  values  of  the  quantities 

qiy  q2,  and  q^  in  eq.  (B.17)  of  [2]. 

The  formulcis  for  AQl,  AQ2,  and  AQ3  that  were  programmed  in  the 
subroutine  BES  can  be  obtained  by  first  substituting  P,  CP,  E2,  F2,  M4, 
and  N4^  for  p,  1  —  p,  Eq,  Fq,  M4,  and  N4  in  the  interpolation  formula  (5.4) 
and  then  applying  the  resulting  interpolation  formula  to  the  data  in  Section 
5.1.4.  Formula  (5.4)  for  10^(— ^)9i(— C)  of  (5.15)  gives 


*  CP  *  Q1(I)  +  P  ♦  Ql(IP)  +  E2  *  Q1D2(I)  +  F2  *  QlD2(IP) 

Ayi  —  - 

,  M4  .  Q1D4(I)  +  N4  .  QIWOP)  0  <  <  10  ,0.63) 


-< 


where,  as  in  the  program, 


IP  =  I  +  1.  (6.64) 

Formula  (5.4)  for  10’'9i(— ()  of  (5.16)  gives 

AQl  =  CP  ♦  Q1(I)  +  P  ♦  Ql(IP)  +  E2  ♦  Q1D2(I)  +  F2  ♦  Q1D2(IP) 

+M4*Q1D4(I) +  N4*Q1D4(IP)  for  1.0  < -C  <  1.5  (6.65) 

and 


AQl  =  CP  *  Q1(I)  +  P  *  Ql(IP)  +  E2  *  Q1D2(I)  +  F2  *  QlD2(IP) 

for  1.5  <  -C  <  7.5.  (6.66) 

Formula  (5.4)  for  10®(-C)^92(— C)  of  (5.20)  gives 

AQ2  =  (CP  *  Q2(I)  +  P  *  Q2(IP)  +  E2  *  Q2D2(I)  +  F2  *  Q2D2(IP)) 

*  for  0  <  -C  <  1.0.  (6.67) 

Formula  (5.4)  for  10®(72(— C)  of  (5-21)  gives 


AQ2  =  CP  *  Q2(I)  +  P  *  Q2(IP)  +  E2  *  Q2D2(I)  +  F2  ♦  Q2D2(IP) 

for  1.0  <  -C  <  2.8  (6.68) 

tSee  (7.1)  and  (7.9H7.13). 
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and 


AQ2  =  CP  ♦  Q2(I)  +  P  ♦  Q2(IP)  for  2.8  < -C  <  4.8.  (6.69) 

It  is  assumed  that 


AQ2  =  0  for  4.8<-C<7.5. 


(6.70) 


Note  that  AQ2  suddenly  jumps  from  a  nonzero  value  calculated  from  (6.69)  to 
the  zero  value  of  (6.70)  as  — C  passes  through  4.8.  The  resulting  discontinuity 
of  the  interpolated  value  of  92(~C)  ^.t  — C  =  4.8  does  not  cause  serious  error 
because  the  actual  value  of  92(4.8)  is  small.  Formula  (5.4)  for  10®(— C)®93(— C) 
of  (5.24)  gives 


AQ3  = 


CP  *  Q3(I)  -f  P  ♦  Q3(IP) 
-C® 


for  0  <  — C  <  1.0. 


It  is  assumed  that 


(6.71) 


AQ3  =  0  for  1.0  <  -C  <  7.5.  (6.72) 

Statement  19  uses  CNl,  CN2,  CN3,  CN4,  AZ,  AQl,  AQ2,  and  AQ3  of 
(6.46)-(6.49),  (7.14),  and  (6.60)-(6.62),  respectively,  to  set  XJP(S)  equal  to 
j',  of  (B.17)  of  [2]1  when  — C  <  7.5. 

The  group  of  statements  consisting  of  statement  18  and  all  statements 
between  statements  18  and  20  in  DO  loop  15  implements  (6.44)  when  — C  > 
7.5.  The  first  of  these  statements  sets 


XI  =  ^  (6.73) 

where  ^  is  given  by  (5.8).  The  fourth  of  these  statements  sets 

P  ^  p  (6.74) 

where  p  appears  in  (5.4).  The  fifth  of  these  statements  sets  I  such  that  Z(I)  is 
10®  (Z  —  5^“^)  at  the  nearest  smaller  tabulated  value  of  The  sixth  of 
these  statements  calculates  the  computer  program  variables  IP,  CP,  E2,  F2, 
M4,  N4,  and  AZ.  These  variables  are  defined  by  (7.10)-(7.13)  and  (7.15), 

^Here,  eq.  (B.17)  of  [2]  with  q2  =  qs  =  0  is  meant  rather  than  (B.17)  of  [2]  as  it  stands. 
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respectively.  The  seventh  of  these  statements  adds  1  to  I  because  the  value 
of  I  in  Ql(I)  and  Q1D2(I)^  to  be  used  in  the  ninth  of  these  statements  is  1 
more  thaui  the  value  of  I  in  Z(I)  of  (5.6).  The  ninth  of  these  statements  sets 

AQl  =  10^91  (6.75) 

where  is  the  interpolated  value  of  the  quantity  qi  in  eq.  (B.17)  of  [2]. 

The  formula  for  AQl  that  was  prograimmed  in  the  subroutine  BES  cam  be 
obtained  by  substituting  into  the  interpolation  formula  (5.4)  the  computer 
program  variables  P,  CP,  E2,  F2,  Ql(I),  and  Q1D2(I)  of  (7.1),  (7.9)-(7.11), 
(5.17)  and  (5.18),  respectively.  The  tenth  of  these  statements  uses  CN,  AZ, 
TT,  XI,  CN2,  and  AQl  of  (5.30),  (6.45),  (6.47),  (6.73),  (6.75),  and  (7.15), 
respectively,  to  set  XJP(S)  equal  to  of  eq.  (B.17)  of  [2]  when  — C  >  7.5. 


6.3  Listing  of  the  Subroutine  BES 

SUBROUTIHE  BES(I.ZJ,XJP) 

IMPLICIT  REAL*8  (A-H,0-Z) 

COMMOl  /6ES/XM.SNAX 

COMMOI  /BESII/X(21.50) ,XP(21,S0) .Z(96) ,ZD2(98) ,ZD4(96) . 
1P1(96),P1D2(96) ,P2(76) ,qi(97) ,qiD2(97) ,Q1D4(17) ,q2(50) , 
2q2D2(30) ,q3(ll) .A(200) ,AP(200) ,PI4,TT 
COMMOI  /IITERPOL/P , I , IP , CP , E2 , F2 , M4, 14 , AZ 
IITEGER  S.SMAX 

REALMS  XJ(200}.XJP(200).M4.I4 
IF(I.CT.20)  GO  TO  11 
DO  12  S»l,49 
XJ(S)=X(I,S) 

XJP(S)=XP(I,S) 

IF(XJP(S).GT.XM)  GO  TO  13 
12  COITIHUE 
IA=1-1 
12=2*IA-1 
I3=2*IA-3 

IF(I.Eq.l)  13=13+4 
UM=4+RA4'NA 
UMl=UM-l,D+0 
Al=UMl/8.D+0 


tSee  (5.17)  and  (5.18). 
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A3=UM1* (7 . D+0*UM-31 . D+0) /384 .D+0 
UM2-UM*UM 

A5=UM1* ( 83 . D+0*0M2-982 . D+0*UM+3779 .D+0) / 15360 . D+0 
UN3SUM2+UH 

A7=U1I1* (6949 . D+0+0M3- 1S386S . D+0+0I12+ 1586743 . D+O+UM-6277237 . D+0) 
1/3440640. D+0 
AP1= (UM+3 . D+0) /8 . D+0 
AP3= (7 . D+0+UM2+82 . D+O+UM-9. D+0)/384. D+0 

AP5s (83 . D+0+UM3+2075 . D+0+UM2-3039 . D+O+UM+3637 . D+0)/16360 . D+0 
UN4=UM3«UH 

AP7a(6949 . D+0+UM4+296492 . D+0+UM3-1248002 . D+0+UM2+7414380 . D+O+UM 
1-6853627 . D+0 ) /3440640 . D+0 
DO  14  5=60.200 
IS=4*S 

B=PI4*(I2+IS) 

B2=B*B 

B3=B2*B 

B6=B3*B2 

IJ(S)=B-A1/B-A3/B3-A6/B6-A7/(B5*B2) 

BP=PI4*(13+IS) 

BP2=BP*BP 

BP3=BP2*BP 

BP5=BP3*BP2 

XJP(S)=BP-AP1/BP-AP3/BP3-AP5/BP5-AP7/(BP5*BP2) 

IF(XJP(S).GT.XM)  GO  TO  13 
14  comiuE 
STOP  14 
11  CI=I-1 

CI1=1.D-9*CI 

CI2=l.D-7/CI 

CI3=l.D-5/CI**3 

CI4=l.D-5/CI**5 

CIZ=-ai**(-TT) 

DO  15  5=1,200 
ZETA=CIZ+A(S) 

IF(ZETA.GE.7.5D+0)  GO  TO  16 
Z10=10.D+0*ZETA 
I=Z10 
P=Z10-I 
1=1+1 

CALL  IITERPOL 

AP1=CP*P1(I)+P*P1(IP)+E2*P1D2(I)+F2*P1D2(IP) 

AP2=CP+P2(I)+P*P2(IP) 

XJ(S)=CI1*AZ+CI2*AP1+CI3+AP2 


141 


GO  TO  17 

18  XI=l.D+0/DSQRT(ZETA) 

ZI50=50.D-f0*XI 

I=XISO 

P=XI50-I 

1=1+77 

CALL  IITLAPOL 

AP1=CP*P1 (I) +P+P1 (IP) +E2*P1D2(I)+F2*P 1D2 ( IP) 
X J (S) =C1* ( 1 . D-9*AZ+TT/XI**3) ♦CI2* API 

17  ZETA=aiZ«AP(S) 

IF(ZETA.GE.7.5D+0)  GO  TO  18 
ZlOslO.D+O+ZETA 

I=Z10 

P=Z10-I 

1=1+1 

CALL  IITERPOL 
IF(I.GE.ll)  1=1+1 
IP=I+1 

AQl=CP*Ql(I)+P*Ql(IP)+E2*qiD2(I)+F2*QlD2(IP) 
IFd.LE.lS)  Aqi=Aqi+M4*qiD4(I)+I4*QlD4(IP) 
Aq2=0.0+0 

IF(I.LE.49)  Aq2=CP*q2(I)+P*q2(IP) 

IF(I . LE . 29)  Aq2=Aq2+E2*q2D2(I)+F2*q2D2(IP) 
Aq3=0.0+0 

IF(I.GE.12)  GO  TO  19 

Aqi=Aqi/ZETA 

Aq2= . lD+0*Aq2/ZErA**3 

Aq3= (cp*q3 ( I ) +p*q3 ( IP ) ) /zeta+^s 

19  X JP (S )=CI 1 ♦ AZ+CI2* Aq l+CI3*Aq2+CH4*Aq3 
GO  TO  20 

18  XI=l.D+0/DSqRT(ZETA) 

XI50=50.0+0+XI 

I=XI50 

P=XISO-I 

1=1+77 

CALL  IHTERPOL 

1=1+1 

IP=I+1 

Aqi=cp*qi(i)+p*qi(ip)+E2*qiD2(i)+F2*qiD2(iP) 

XJP(S)=CI+(l.D-9*AZ+TT/XI**3)+CI2*Aqi 

20  IF(XJP(S).GT.XM)  GO  TO  13 
15  COITIMUE 

STOP  15 
13  SHAX=S-1 

IF(I.Eq.l.AHD.XJ(S).LE.XM)  SMAX=S 
RETURI  J42 

EHO 


Chapter  7 

The  Subroutine  INTERPOL 


In  the  subroutine  INTERPOL,  the  interpolation  formula  (5.4)  is  applied  to 
the  data  in  the  array  Z. 


7.1  Description  of  the  Subroutine 
INTERPOL 

In  the  common  block  labeled  INTERPOL  in  the  subroutine  INTERPOL,^  P 
and  I  are  input  variables  and  IP,  CP,  E2,  F2,  M4,  N4,  and  AZ  are  output 
variables.  In  the  common  block  labeled  BESIN,  Z,  ZD2,  and  ZD4  eire  input 
Vciriables.  The  remaining  variables  in  the  common  block  labeled  BESIN  «ire 
not  used  in  the  subroutine  INTERPOL;  these  variables  connot  be  removed 
because  they  are  used  in  the  subroutines  BESIN  and  BES. 

The  input  variables  P,  Z,  ZD2,  and  ZD4  are  defined  in  terms  of  variables 
on  the  right-hand  side  of  (5.4)  tis 


p  =  p 

(7.1) 

Z(I)  =  lOVo 

(7.2) 

Z(I  +  1)  =  lOVi 

(7.3) 

ZD2(I)  =  .5^0 

(7.4) 

ZD2(I  -b  1)  = 

(7.5) 

ZD4(I)  =  7o" 

(7.6) 

^The  subroutine  INTERPOL  is  listed  in  Section  7.2. 


143 


ZD4(I  +  1)  =  7?. 


(7.7) 


Because  the  subscripts  0  or  1  on  the  right-hand  sides  of  (7.2)-(7.7)  denote 
evaluation  at  the  nearest  smaller  or  nearest  larger  value  of  the  argument  of 
the  function  subject  to  interpolation,  the  meeining  of  the  input  variable  I  is 


apparent.  The  values  /o  and  fi  of  the  function  subject  to  interpolation  are 
those  of  ^(— C)  in  (5.5)  or  z  in  (5.6). 

The  subroutine  INTERPOL  sets 


IP  =  I  +  1 
CP  =  1  -  p 
E2  =  Ej 
F2  =  Fa 
M4  =  A/4 
N4  =  iV4 


AZ  =  lO^(-C) 


(7.8) 

(7.9) 

(7.10) 

(7.11) 

(7.12) 

(7.13) 

0  <  -C  <  7.5  (7.14) 


where  p  appears  on  the  right-hand  side  of  (B.12)  of  [2].  Moreover,  Fa,  Fa, 
A/4,  and  N4  are  given,  respectively,  by  eqs.  (B.13)-(B.16)  of  [2].  The  right- 
hand  side  of  (7.14)  is  calculated  from  the  interpolation  formula  (5.4)  for 
10®z(C)  when  0  <  — C  <  7.5  and  from  (5.4)  for  10~®  ((^)  when 

0  <  ^  In  the  subroutine  INTERPOL,  AZ  is  the  cadculated  value 

of  the  right-hand  side  of  (5.4)  with  the  variables  p,  lO^o,  lO^/i,  ^m0> 

7q,  7j,  Fa,  Fa,  A/4,  and  replaced  by  the  corresponding  vcuriables  in  the 
subroutine  INTERPOL.  These  corresponding  variables  are  P,  Z(I),  Z(I-f  1), 
ZD2(I),  ZD2(I-fl),  ZD4(I),  ZD4(I-M),  E2,  F2,  M4,  and  N4,  respectively  (see 
(7.1)-(7.7)  and  (7.10)-(7.13)).  In  (7.14)  and  (7.15),  z  is  the  interpolated 
value  of  z  in  eq.  (B.5)  of  [2]. 


7.2  Listing  of  the  Subroutine  INTERPOL 

SUBROUTIME  IHTERPOL 
IMPLICIT  REAL*8  (A-H,0-Z) 
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COMMOI  /IHTERPOL/P , 1 . IP , CP . E2 , F2 . M4, 14 . AZ 

COMMOI  /BESII/X(21.S0) .IP(21.50) .2(96) .2D2(96) .ZD4{96) , 

1P1(96),P1D2(98) ,P2(76) .Ql(97) .Q1D2(97) .Q1D4(17) .q2(50)  . 

2q2D2(30) ,q3(ll) ,i(200) ,AP(200) ,PI4.TT 
IIEAL*8  N4.I4 
IP=I+1 
CP=l.D+0-P 
PPl=P+l.D+0 
PP=P* (P-1 . D+0) /6 . D+0 
Pl!2=P-2.D+0 
E2=-PP*PM2 
F2=PP*PP1 

M4=l.D+3*E2*(PPl*(P-3.D+0)/20.D+0*0.184D+0) 

14= 1 . D+3*F2* ( (P+2 . D+0 ) +PM2/20 . D+0+0 . 184D+0) 

AZ=CP*2 ( I ) +P*Z ( IP ) +E2+ZD2 (I ) +F2*2D2( IP) +M4+ZD4 ( I ) +I4+ZD4 (IP) 

RETURI 

EID 
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Chapter  8 

The  Subroutine  PHI 


The  subroutine  PHI  puts  \  and  of  eqs.  (3.40)-(3.43)  of  [2] 

in  PHl(P),  PH2(P),  PH3(P),  and  PH4(P),  respectively,  for  {P  =  1,2, •••, 
PMAX}  where 

P=p+1.  (8.1) 

This  is  equivalent  to  putting  and  <^“2'’'*  of  eqs.  (3.32)- 

(3.35)  of  [2]  in  PHl(P),  PH3(P),  PH2(P),  and  PH4(P),  respectively.  The 
subroutine  PHI  also  puts  and  of  eqs.  (3.36)- 

(3.39)  of  [2]  in  PH1(P+PMAX),  PH3(P+PMAX),  PH2(P+PMAX),  and 
PH4(P+PMAX),  respectively,  for  {P  =  1,2, •••, PMAX}  where 

P  =  m  +  1.  (8-2) 


8.1  Description  of  the  Subroutine  PHI 

In  the  common  block  labeled  PHI,^  BX,  BX5,  PMAX,  R,  and  SGR  are  input 
variables,  and  PHI,  PH2,  PH3,  and  PH4  are  the  output  variables  appearing 
in  the  previous  two  sentences.  The  input  variable  PMAX  also  appears  in 
these  two  sentences.  The  input  variables  BX,  BX5,  R,  and  SGR  are  defined 
by  (3.24),  (3.23),  (3.73),  and  (3.88),  respectively.  In  (3.24),  <f>o  is  given  by 
eq.  (2.9)  of  [2]  and  related  to  Xg  by  eq.  (2.8)  of  [2]  so  that  (3.24)  can  be  recaist 
as 

BX  =  — .  (8.3) 

Xo 

^See  the  listing  of  the  subroutine  PHI  in  Section  8.2. 
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Similarly,  (3.23)  Ccin  be  recast  as 


BX5  =  (8.4) 

In  the  common  block  labeled  PI,  PI  is  given  by  (3.1). 

The  index  P  of  DO  loop  11  is  the  integer  P  that  appears  in  the  first  two 
sentences  of  Chapter  8.  The  four  statements  before  DO  loop  11  set 


R1  =  r 


The  first  statement  in  DO  loop  11  sets 


PP=p7r. 

The  second  and  third  statements  in  DO  loop  11  set 


(8.5) 

(8.6) 

(8.7) 

(8.8) 

(8.9) 


AP  =  (8.10) 

AP5  =  A+/2  (8.11) 

where  A"*"  is  given  by  eq.  (3.44)  of  [2].  The  seven  statements  immediately 
before  statement  13  set 


SP 


’  1, 

'  sin 
•  A+  ’ 


A+  =  0 
A^jiO 


0, 


sin^  {A'^12) 
(A+/2) 


A+  =0 
A+^0. 


Statement  13  and  the  statement  following  it  set 


(8.12) 


(8.13) 


AM  =  A-  (8.14) 

AM5  =  A- 12  (8.15) 
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where  A~  is  given  by  eq.  (3.45)  of  [2].  The  seven  statements  immediately 
before  statement  15  set 


r  1,  A- =  0 
{  sinA"  .  ,  „ 

0,  A-  =0 

SM5  =  -  sin^ (A- /2)  . 

{A+/2)  ’  ^ 

Statement  15  and  the  three  statements  following  it  set 

PHl(P)  =  4') 

PH2(P)  = 

PH3{P)  = 

PH4(P)  = 


(8.16) 


(8.17) 


(8.18) 

(8.19) 

(8.20) 
(8.21) 
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where 


J  =  P  +  PMAX  (8.30) 

cind  where  and  are  given,  respectively,  by  eqs. 

(3.36)-(3.39)  of  [2]. 


8.2  Listing  of  the  Subroutine  PHI 

SUBROOTIIE  PHI 
IMPLICIT  REAL*8  (1-H,0-Z) 

COMMOI  /PHI/BX . BXS , PMAX . R.SGR, PHI ( 100) , PH2 ( 100) . PH3 ( 100) . 
1PH4(100) 

COMMQl  /PI/PI 
IITEGER  R.P.PMAX 
R1=R-1 
RB=R1«BX 
SIsDSII(RB) 

CS=DC0S(RB) 

DO  11  P-l.PMAX 

PPs(P-l)*PI 

iP«PP+RB 

APS*,5D+0*AP 

IF(AP.IE.0.D+0)  GO  TO  12 

SP=l.D+0 

SP5=0.D+0 

GO  TO  13 

12  SP=DSII(AP)/AP 
SP5=0SII(AP5) 

SPSsSPS*SP5/APS 

13  AM=PP-RB 
AMSs.SD-fO*AM 
IFCAM.IE.O.)  GO  TO  14 
SMsl.D-t-0 
SMSsO.D-t-O 

GO  TO  IS 

14  SM=DSIN(AM)/AM 
SMSsDSIH(AM5) 

SMS=SM5*SM5/AM5 

16  PH1(P)=BX5*(SM-SP) 

PH2(P)=BX5*(SMS-)-SP5) 

PH3(P)=BX5*(SP5-SM5) 

PH4(P)=BXS*(SM+SP) 

J=P+PMAX 
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PHI ( J)=SGR* (PH2(P) *SI-PH1 (P)*CS) 
PH3(J)=SGR*(PH4(P)*S1-PH3(P)*CS) 
PH2( J)=SGR* (PH2 (P) *CS+PH1 (P) *SI) 
PH4 ( J ) =SGR* ( PH4 (P) ♦CS+PH3 (P ) *SI) 
11  COITIIUE 
RETURI 
EID 
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Chapter  9 

The  Subroutine  DGN 

The  subroutine  DGN^  calculates  Gg,  D^\  G^q  \  ^ee,  ^oe,  ^oo>  and 
1/ ^(nir)^  H- respectively,  of  eqs.  (3.82),  (3.80),  (3.111),  (3.109), 
(3.99)-(3.102)  and  (3.90)  of  [2].  Here,  as  in  [2],  8  is  either  TM  or  TE. 


9.1  The  Input  Variables 


The  input  variables  are  ITMTE  and  X  in  the  argument  list,  S,  BKA2,  L3, 
C,  C5,  and  PIS  in  the  common  block  labeled  DGN,  PI  in  the  common  block 
labeled  PI,  and  NMAX  in  the  common  block  labeled  NMAX. 

The  input  vjiriable  ITMTE  must  be  either  1  or  2.  When  ITMTE  =  1,  the 
output  of  the  subroutine  DGN  differs  from  that  when  ITMTE  =  2  only  in 
that  the  output  vairiables  and  are  not  calculated  when  ITMTE  =  1. 
The  input  variables  X  and  S  <ire  such  that 


X(S) 


■{ 


Xra  for  the  calculation  of  TM  quantities 
x',  for  the  calculation  of  TE  quantities 


(9.1) 


where  Xr,  and  x',  are  defined  by  (2.8)  and  (2.11),  respectively.  Given  that 
and  are  strictly  TE  quantities,  we  plan  to  set 


ITMTE 


when  X(S)  =  Xn 
when  X(S)  =  x'^ 


(9.2) 


^See  the  listing  of  the  subroutine  DGN  in  Section  9.4. 
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when  we  cadi  the  subroutine  DGN. 

The  input  variables  BKA2,  L3,  C,  C5,  PI5,  and  PI  are,  as 
(3.16),  (2.5),  (2.2),  (3.53),  (3.14),  and  (3.1),  respectively, 

defined  by 

BKA2  =  (ita)2 

(9.3) 

L/% 

L3  =  — 
a 

(9.4) 

c  =  ‘- 

a 

(9.5) 

a 

II 

(9.6) 

PI5=5 

(9.7) 

PI  =  IT. 

(9.8) 

The  input  vau’iable  NMAX  is  such  that  the  output  quantities  D^,  and 

1/  nriTr)^  +  j  are  calculated  for  {n  =  0, 1, 2,  •  •  • ,  NMAX— 

1 }  ^tnd  that 

the  output  quantities  and  are  calculated  for  {q  =  0, 1, 2,  •  • 

1}.  Here, 

•,NMAX- 

^  /  TM,  X(S)  =  ar., 

^  \  TE,  X(S)  =  x;. . 

(9.9) 

9.2  The  Output  Variables 

The  output  variables  are  XX,  ICUT,  GAM,  CP,  CM,  D,  G,  DQ,  GCS,  GC2, 
ZEE,  ZZ,  ZOE,  and  ZOO  in  the  argument  list,  and  D3,  G4,  and  PGC  in 

the  common  block  labeled  DGN.  These  veiriables  are  defined 
variables  in  [2]  by 

in  terms  of 

r  x^.,  x(s)  =  X., 

-  \  xZ  X(S)  =  x;. 

(9.10) 

“"■(J:  Slttf 

(9.11) 

““-It: 

(9.12) 

CP(N)  = 

(9.13) 

[ 
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CM(N)  =  n^-c 

(9.14) 

D(N)  =  bi 

(9.15) 

G(N)  =  Gi 

(9.16) 

DQ(N)  = - - — 

(n7r)2  +  (7^,c)* 

(9.17) 

GCS  =  {tt.cf 

(9.18) 

GC2  =  27^.c 

(9.19) 

ZEE  =  —4Zee 

(9.20) 

TIL  —  —\Zo 

(9.21) 

ZOE  =  —kZoe 

(9.22) 

zoo  =  —4zoo 

(9.23) 

D3(N)  = 

(9.24) 

G4(N)  =  Gi^^ 

(9.25) 

PGC  =  4-  • 

(9.26) 

In  (9.11)  and  (9.12),  XX  is  the  computer  progrcim  variable  given  by  (9.10). 
In  (9.12),  S  is  given  by  (9.9),  is  given  by  eqs.  (3.59)  and  (3.60)  of  [2], 
and  7^,0  is  given  by  eqs.  (3.57)  and  (3.58)  of  [2].  In  (9.13)-(9.17),  (9.24), 
and  (9.25), 

N  =  n  +  1  and  N  =  1,2,-- •  ,NMAX.  (9.27) 

In  (9.13)  and  (9.14),  n^'^'c  and  n^~c  are  given,  respectively,  by  eqs.  (3.79)  and 
(3.78)  of  [2]  with  q  replaced  with  n.  In  (9.15),  is  given  by  eq.  (3.82)  of 
[2].  In  (9.16),  is  given  by  eq.  (3.80)  of  [2]  with  q  replaced  with  n.  The 
right-hand  side  of  (9.17)  appears  in  eq.  (3.90)  of  [2].  In  (9.20)-(9.23),  Zee»  Zo, 
Zoe,  and  Zoo  are  given,  respectively,  by  eqs.  (3.99)-(3.102)  of  [2].  In  (9.24), 
is  given  by  eq.  (3.111)  of  [2].  In  (9.25),  is  given  by  eq.  (3.109)  of 
[2]  with  q  replaced  with  n. 

Not  all  output  variables  are  always  Ccilculated.  The  variables  CP(N), 
CM(N),  D(N),  and  G(N)  are  calculated  only  when  ICUT=1.  The  variables 
D3(N)  and  G4(N)  are  calculated  only  when  ICUT=1  and  ITMTE=2.  The 
variables  DQ(N),  GCS,  GC2,  ZEE,  ZZ,  ZOE,  ZOO,  and  PGC  are  calculated 
only  if  ICUT=2. 
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9.3  Description  of  the  Subroutine  DGN 


The  seventh  statement  before  DO  loop  12  sets 

GAM2  =  XX  -  (jka)2 

(9.28) 

where  XX  is  given  by  (9.10).  If 

(ka)^  >  XX, 

(9.29) 

then  the  next  statement,  which  is 

IF(GAM2.GE.0.D+0)  GO  TO  11, 

allows  execution  to  continue  on  to  DO  loop  12  and  eventually  to  the  return 
statement  immediately  thereafter.  If 

(Jfca)2  <  XX,  (9.30) 

then  control  passes  to  statement  11  and  eventually  to  the  return  statement 
immediately  after  statement  20. 


9.3.1  Above  Cutoff 

In  this  section,  the  wavenumber  k  is  above  the  cutoff  wavenumber  y/XXfa 
so  that  (9.29)  holds.  As  a  result,  DO  loop  12  and  the  five  statements  before 
it  are  executed.  The  fifth,  fourth,  third,  and  second  statements  before  DO 
loop  12  set 


In  DO  loop  12, 


ICUT  =  1 

(9.31) 

GAM  = 

(9.32) 

BL  = 

(9.33) 

BC5  =  ^ . 

(9.34) 

N  =  n  +  1  (9.35) 
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where  n  is  the  integer  that  appears  in  (9.13)-(9.16),  (9.24),  and  (9.25).  The 
first  four  statements  in  DO  loop  12  set 


SON  =  (-1)" 

(9.36) 

PIN=^ 

2 

(9.37) 

CNP  = 

2 

(9.38) 

n^~c 

CNM  = 

it 

(9.39) 

where  and  n^“c  axe  given,  respectively,  by  eqs.  (3.79)  2uid  (3.78)  of  [2] 
with  q  replaced  with  n.  The  next  two  statements  in  DO  loop  12  set  CP(N) 
and  CM(N)  equal  to  the  right-hand  sides  of  (9.13)  and  (9.14),  respectively. 
Statement  21  and  the  three  statements  prior  to  it  set 


where  it  is  understood  that  when  n^'^c  =  0,  SP  is  to  be  replaced  by  its  limit 
as  71^"^  c  approaches  zero.  This  limit  is  given  by 


lim  SP  =  1. 

n*+c-*0 

Statement  14  and  the  three  statements  prior  to  it  set 


(9.41) 


(9.42) 


where  it  is  understood  that  the  right-hand  side  of  (9.42)  is  to  be  replaced 
with  1  when  n^~c  =  0. 

Statement  15  and  the  seven  statements  following  it  set 
ARG  =  -  Y 
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cs  = 

SN  = 

01  = 

C2  = 


U1  =  -  sin  -  j  cos 

D(N)  =  bi 
G(N)  =  Gi . 


(9.44) 

(9.45) 

(9.46) 


(9.47) 

(9.48) 

(9.49) 

(9.50) 


In  (9.49),  bf^  is  given  by  eq.  (3.82)  of  [2].  In  (9.50),  is  given  by  eq.  (3.80) 
of  [2]  with  q  replaced  by  n. 

The  statement 


GO  TO  (12,13),  ITMTE 

sends  execution  directly  to  statement  12  if  ITMTE  =  1.  If  ITMTE  =  2, 
then  statement  13  and  the  two  statements  following  it  set 


D3(N)  =  b^^^ 
G4(N)  = 


(9.51) 

(9.52) 

(9.53) 


In  (9.52),  bl^^  is  given  by  eq.  (3.111)  of  [2]  with  TE  replaced  by  6.  In  (9.53), 
is  given  by  eq.  (3.109)  of  [2]  with  q  and  TE  replaced,  respectively,  by  n 
and  6. 
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9.3.2  Below  or  at  Cutoff 

In  this  section,  the  wavenumber  k  is  below  or  at  the  cutoff  wavenumber 
y/XX/a  so  that  (9.30)  holds.  As  a  result,  control  passes  from  the  sixth 
statement  before  DO  loop  12  to  statement  11  and  eventually  to  DO  loop  20. 
Statement  11  and  the  thirteen  statements  following  it  set 


ICUT  =  2  (9.54) 

GAM  =  ga  (9.55) 

GC  =  gc  (9.56) 

GCS  =  (gcf  (9.57) 

GC2  =  2gc  (9.58) 

PGC  =  —  (9.59) 

9c 

GL2  =  2gL3  (9.60) 

EL  =  (9.61) 

EC  =  (9.62) 

ELCM  =  (9.63) 

ELCP  =  t-'^3Li-gc  (9  64) 

EE  =  2  4.  g-23L,-gc^  (9  65) 

ECEL  =  e-®'  -  (9.66) 

GCX4  =  45c  (9.67) 


where,  as  in  eq.  (3.89)  of  [2], 

g  =  lU  .  (9.68) 

If  <  1,  control  passes  to  the  statement  after  the  branch  statement 

IF(GC.GE.l)  GO  TO  16 

and  eventually  to  statement  18.  The  effects  of  the  statement  after  the  above- 
mentioned  branch  statement  and  all  further  statements  up  to  and  including 
statement  18  are  described  in  this  paragraph.  The  five  statements  after  the 
branch  statement 

IF(GC.GE.l)  GO  TO  16 
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set 


GC5  =  ^ 

2 

(9.69) 

39. 

EC5  =  e  2 

(9.70) 

SC5  =  sinh 

(9.71) 

ELSC5  =  sinh 

(9.72) 

ZEE  =  — 42ee  for  gc  <  \  . 

(9.73) 

In  (9.73),  ^ee  is  given  by  the  second  right-hand  side  of  eq.  (3.99)  of  [2].  The 
statement  after  the  branch  statement 

IF(GC.GE.O.OID-I-O)  GO  TO  17 
and  all  further  statements  up  to  and  including  statement  23  set 

ZZ  =  —4zo  for  gc  <  0.01.  (9-74) 

The  above  is  given  by  the  third  right-hand  side  of  eq.  (3.100)  of  [2]  with 
the  [gcjTf'  and  [gcj2)'  terms  omitted  when  {gcji)  <  lO”"*.  These  terms 
were  omitted  when  igc/2)  <  10““*  because  they  are  very  small  compared  to 
the  {gcl2f  term  when  (^c/2)  <  lO"'*.  Statement  17  sets 

ZZ  =  -4zo  for  0.01  <gc<\  (9.75) 

where  2,,  is  given  by  the  second  right-hand  side  of  eq.  (3.100)  of  [2].  Statement 
18  sets 


ZOE  =  —4zoe  for  gc<\  (9.76) 

where  2oe  is  given  by  the  second  right-hand  side  of  eq.  (3.101)  of  [2]. 

If  ^c  >  1,  the  branch  statement 

IF(GC.GE.l)  GO  TO  16 

sends  execution  to  statement  16.  Statement  16  and  two  statements  following 
it  set 

ZEE  =  — 42ee  for  gc>  I 
TIL  =  —4zo  for  gc>  \ 

ZOE  =  — 4zoe  for  gc>  \ 


.58 


(9.77) 

(9.78) 

(9.79) 


where  Zge,  Zg,  and  Zoe  are  given,  respectively,  by  the  first  right-hand  sides  of 
eqs.  (3.99)-(3.101)  of  [2]. 

Statement  19  sets 


ZOO  =  —4^00 


(9.80) 


where  Zoo  is  given  by  the  first  right-hand  side  of  eq.  (3.102)  of  [2].  The 
second  right-hand  side  of  eq.  (3.102)  of  [2]  was  never  used  because  it  was 
deemed  nearly  as  susceptible  to  roundoff  error  as  the  first  right-hand  side  of 
eq.  (3.102)  of  [2]  when  gc  <  1.  The  second  statement  in  DO  loop  20  sets 


DQ(N)  = 


1 

(n7r)2  -f  [gcY 


(9.81) 


where  N  and  n  are  related  by 


N  =  n-I-1. 


(9.82) 


9.4  Listing  of  the  Subroutine  DGN 

SUBROUTIHE  DGI ( ITMTE . X , XX , ICUT .GAM , CP , CM , D , G , DQ , GCS , GC2 , ZEE , 

izz.zoE.zao) 

IMPLICIT  REAL*8  (A-H.O-Z) 

COMMOI  /DGH/S , BKA2 , L3 , C . C5 . PI5 , D3 (50) , G4 ( 50) , PGC 
COMMOM  /PI/PI 
COMMOI  /IMAX/HMAX 
COMPLEX* 16  Ul, 0(50), 03 

REAL*8  X(200) ,CP(50) ,CM(50) ,DQ(50) ,G(S0) ,L3 

INTEGER  S 

XX=X(S) 

xx=xx*xx 

GAM2=XX-BKA2 

IF(GAM2.GE.0.D+0)  GO  TO  11 
ICUT=1 

GAM=DSqRT(-GAM2) 

BL=GAM*L3 

BC5=GAM*C5 

SGI=-l.D+0 

DO  12  I=1.NMAX 

SGH=-SGI 

PIH=PI5*(I-1) 
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CIP=PII+BCS 

CIM=PII-BC5 

CP(I)=CIP*2.D+0 

CM(l)=CIM*2.D+0 

IF(CIP.lE.0.D+0)  GO  TO  21 

SP=l.D+0 

GO  TO  22 

21  SP=DSIM(CSP)/CIP 

22  IF(CHM.IE.O.D+0)  GO  TO  14 
SN=1.D4-0 

GO  TO  IS 

14  SM=DSIH(CHM)/CHM 

15  ARG=BL-PII 
CS=DCOS(ARG) 

SI=OSIH(ARG) 

C1=SGR«SN 

C2=SP+C1 

U1=-DCMPLX(SM.CS) 

D(I)=C2*U1 

G(1)=C2*CS 

GO  TO  (12,13),  ITMTE 

13  C3=SP-C1 
D3(I)*C3*U1 
G4(I)=-C3*CS 

12  COHTIHUE 
RETURI 

11  ICUT=2 

GAM=DSQRT(GAM2) 

GC=GAN«C 

GCS=GC*GC 

GC2=2.D+0*GC 

PGC=PI/GC 

GL2=GAN4-L3«2.D>0 

EL=DEXP(-GL2) 

EC=DEXP(-GC) 

ELCM=DEXP(-GL2+GC) 

ELCP=DEXP(-GL2-GC) 

EE= ( ELCM+ELCP ) *2 . D+0 

ECEL=EC-EL 

GCX4=GCM.D-)-0 

IF(GC.GE.l)  GO  TO  16 

GCS=GAN*C5 

EC5=DEXP(-GC5) 

SCS=DSINH(GC5) 
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ELSC5=EL*SC5 

ZEE=8 . D+0* (EC5-ELSC5 ) *305 

IF(GC.GE.0.01D+0)  GO  TO  17 

G2sGC5*GC5 

G3sG2«GC5 

GC4=GC/4.D-t-0 

ZZ=G3/6 . r*0- (2 . D+0*DEXP (-GC4) *DS1IH(GC4) +ELSCS) *306 

IF(GCS.LT.l.D-4)  GO  TO  23 

G6=G2*G3 

ZZ=ZZ-K:6/  120 .  D-t-0+G2*G6/S040 .  D+O 
23  ZZ=8.IH0*ZZ 
GO  TO  18 

17  ZZ=8 . *(ECS-ELSC5) *SCS-GCX4 

18  Z0E=4.D+0*EL*DSIIH(GC) 

GO  TO  19 

16  ZEE=4.*(1.-ECEL)-EE 
ZZ=ZEE-GCX4 
ZOE= (ELCM-ELCP) *2 . D+0 

19  Z00=4.*(1.+ECEL)-EE 

00  20  i»i,mx 

PII*PI*(*-1) 

Dq(I)*l .D+0/(PII*PII+GCS) 

20  COITIBUE 
RETURI 
EID 


I 
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Chapter  10 

The  Function  Subprogram 
FXY 


The  function  subprogram  FXY  sets 

FXY(I,X,Y,)  =  /(x,y)  (10.1) 

where 

X  =  X 
Y  =  y. 

Furthermore,  x  and  y  are  such  that 

X  +  y  =  /;r  (10.4) 

and  f{x,y)  is  given  by  eq.  (3.84)  of  [2]. 


(10.2) 

(10.3) 


10.1  Description  of  the  Function 
Subprogram  FXY 

In  the  listing  of  the  function  subprogram  FXY  in  Section  10.2,  there  are  six 
statements  that  define  FXY.  If  i  +  y  =  0,  the  first  and  second  of  these 
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statements  set^ 


FXY  = 


L 

3!’ 


\y\  <  10 


-5 


y 

l-tr  +  lf  io-‘ 2 1^1 2 o-i 


and  the  third  one  sets 


FXY=?i— M>0.1. 

y 


(10.5) 


(10.6) 


In  (10.5),  the  and  y®  terms  are  absent  when  |y|  <  10~®.  These  terms  were 
omitted  because  their  magnitudes  are  very  small  compared  to  |y|/3!  when 
|y|  <  10~®.  If  X  +  y  ^  0,  the  fourth  and  fifth  of  these  statements  set 


FXY  = 


(-l)^3iny 

yx 


|y|  <  1.57 


and  the  sixth  one  sets 


(10.7) 


FXY  = 


sinx 

yx 


|y|  >  1.57. 


(10.8) 


10.2  Listing  of  the  Function  Subprogram 
FXY 

FUICTIOI  FXYd.X.y) 

IMPLICIT  REAL*8  (A-H,0-Z) 

YA=DABS(y) 

IF(I.HE.O)  GO  TO  11 

IF(YA.GT. .lD+0)  GO  TO  12 

FXY=Y/6.D+0 

IF(YA.LT.l.D-5)  RETURI 

Y2=Y*Y 

Y3=Y2*Y 

FXY=FXY-Y3/120 . D+0+Y3*Y2/5040 . D+0 
RETURI 

12  FXY=(Y-DSIM(Y))/(Y*Y) 

RETURI 

^See  eq.  (3.84)  of  [2]. 
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11  IF(YA.GT.1.57D+0)  GO  TO  13 
Fxy=Dsii(y)/(y*x) 
IF((l-2*(I/2)).IE.O)  FXy=-FXy 
RETURI 

13  Fxy»-Dsii(x)/(y*x) 

RETURI 

EID 
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Chapter  11 

The  Subroutines  DECOMP 
and  SOLVE 


The  subroutines  HECOMP  and  SOLVE  solve  the  linear  equation  system 

Ax  =  b  (11.1) 

where  A  is  an  n  x  n  matrix,  x  is  an  n  x  1  column  vector  of  n  unknowns,  amd 
6  is  an  n  X  1  column  vector  of  of  n  knowns. 

11.1  Input  and  Output  Data  and  Minimum 
Allocations 

The  input  to  the  subroutine  DECOMP(N,IPS,UL)  consists  of  N  =  n  and 
the  elements  of  the  matrix  A  stored  by  columns  in  the  one-dimensional 
array  UL.  The  output  from  the  subroutine  DECOMP  is  IPS  and  UL.^  This 
output  is  fed  into  the  subroutine  SOLVE(N,IPS,UL,B,X).  The  rest  of  the 
input  to  the  subroutine  SOLVE  consists  of  N  and  the  n  elements  of  b  stored 
in  the  one-dimensional  array  B.  The  subroutine  SOLVE  puts  the  n  elements 
of  X  in  the  one- dimensional  array  X.  The  linear  equation  system  (11.1)  can 
be  solved  for  several  different  column  vectors  b  by  calling  the  subroutine 

^The  subroutine  DECOMP  calculates  n  entries  of  IPS  and  changes  the  entries  of 
UL. 
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DECOMP  once  cind  calling  the  subroutine  SOLVE  several  times,  once  for 
each  b. 

Minimum  allocations  are  given  by  » 

COMPLEX  UL(N*N) 

DIMENSION  SCL(N),IPS(N) 

in  the  the  subroutine  DECOMP  and  by 

COMPLEX  UL(N*N).B(N),X(N) 

DIMENSION  IPS(N) 

in  the  subroutine  SOLVE. 

The  functioning  of  the  subroutines  DECOMP  and  SOLVE  is  described 
on  pages  46-49  of  [7]. 


11.2  Listing  of  the  Subroutines  DECOMP 
and  SOLVE 

SUBRQOTIIE  DECOMP  (I.IPS.UL) 

COMPLEX  UL(24336). PIVOT, EM 
DIMEISIOI  SCL(156),IPS(156) 

00  S  I^l.I 

IPS(I)=I 

R1=0. 

J1=I 

DO  2  J=1,I 

ULM=ABS(REAL(UL(J1)  )  )-«-ABS(AIMAG(UL(Jl)  )  ) 

J1=J1+I 

IF(RI-ULM)  1,2,2 

1  RI=ULM 

2  COITIIUE 
SCL(I)=1./RI 

5  COITIIUE 
IM1=I-1 
K2=0 

DO  17  K=1,IM1 
BIG=0. 

DO  11  I=K,I 
IP=IPS(I) 

IPK=IP+K2 

SIZE=(ABS(REAL(UL(IPK) ) )+ABS(AIMAG(UL(IPK) ) ) )*SCL(IP) 
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IF(SI2E-BIG)  11,11,10 

10  BIG-SIZE 
IPV=I 

11  COITIIUE 
IF(IPV-K)  14,16,14 

14  J=IPS(K) 

•  IPS(K)=IP«?(IPV) 

IPS(IPV)=J 

15  KPP=IPS(K)+K2 
PIVOT=OL(KPP) 

KP1=K+1 

DO  16  I=KP1,I 
KP*KPP 
IP=IPS(I)+K2 
EM=-UL(IP)/PIVOT 
18  UL(IP)s-EM 
DO  16  J=KP1,I 
IP*IP+I 
KP*KP+I 

UL(IP)*UL(IP)+EM*UL(KP) 

16  COITIIUE 
K2SK2+I 

17  COITIIUE 
RETURI 
EID 

SU8R0UTIIE  SOLVE(I,IPS,UL,B,X) 
COMPLEX  UL(24336),B(1S6),X(156),SUM 
DINEISIOI  IPS(156) 

IP1*I+1 

IPalPS(l) 

X(1)=B(IP) 

DO  2  1=2,1 
IP=IPS(I) 

IPB=IP 

IM1=I-1 

SUM=0. 

•  DO  1  J=1,IM1 

SUM=SUM+UL(IP)*X(J) 

1  IP=IP+I 

»  2  X(I)=B(IPB)-SUM 

K2»l*(l-1) 

IP=IPS(M)+K2 

X(I)=X(I)/UL(IP) 

DO  4  IBACK=2,I 
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I=IP1-IBACK 

K2=K2-I 

IPI=IPS(I)+K2 

IP1=I+1 

SUMsO. 

IP*IPI 

DO  3  J=IP1,I 
IP=IP+I 

3  SUM=SUM+OL(IP)*X(J) 

4  I(I)*(X(I)-SUM)/UL(IPI) 
RETURI 

EID 
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